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-REM € 
IDENTIFICATION 


PRODUCT CODE: AC-T227B-MC 

PRODUCT NAME: CZUACBO NI EXERCISER DIAGNOSTIC 
PRODUCT DATE: 22-MAR-84 

MAINTAINER: MERRIMACK DIAGNOSTIC ENGINEERING 
AUTHOR: GARY MCCOY 


THE INFORMATION IN THIS oy IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED By DIGITAL OR ITS 
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THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DEC TAPE 


SEQ 1 


Ci 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THE NETWORK INTERCONNECT EXERCISER (NIE) PROGRAM IS MEANT TO PROVIDE 
FIELD SERVICE WITH A TOOL FOR DETERMININING THE CONNECTIVITY OF NODES 
ON THE NETWORK INTERCONNECT (NI). 


THE NIE PROGRAM WILL DETERMINE THE ABILITY OF NODES ON THE NI TO 
COMMUNICSTE WITH EACH OTHER AND PROVIDE NODE INSTALLATION VERIFICATION 
AND PROBLEM ISOLATION. THE NIE USES THE LOW LEVEL MAINTENANCE FEATURES 


OF THE NI. THE VAX VERSION OF THE NIE CAN ALSO BE RUN CONNCURRENTLY ON 
ANOTHER NODE, WITH EACH VERSION RUNNING INDEPENDENTLY OF EACH OTHER. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH — OIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT 
THIS PROGRAM CAN BE USED WITH XxXOP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


IN ORDER TO RUN THE CZUAC NIE PROGRAM, THE FOLLOWING MINIMUM HARDWARE 
IS REQUIRED: 


A POP-11 CPU 

MINUMUM OF 24K WORDS OF MEMORY 

A WORKING, LINE OR REAL-TIME CLOCK 
A CONSOLE TERMINAL 

ANY XXDP+ SUPPORTED LOAD MEDIA 
DEUNA-11 UNIBUS TO ETHERNET ADAPATER 


-3 RELATED DOCUMENTS AND STANDARDS 


- DEUNA USER'S GUIDE EK -DEUNA -UG -001 

- DEUNA TECHNICAL DESCRIPTION  EK-DEUNA-TD-001 

- KXDP+ USER'S MANUAL (CHQUS?.SEQ WHERE ? IS THE REV. LEVEL OF 
THE MANUAL - “C” IS THE CURRENT REV.) 


1.4 OIAGNOSTIC HIERARCY PREREQUISITES 

THE GOAL OF THE NIE IS TO TEST THE COMMUNICATIONS LINK AND THEREFORE 
ASSUMS THAT THE CPU'S, CLOCKS, AND DEUNA'S AT EACH END OF THE LINK 
HAVE ALREADY BEEN TESTED. 

IF NO LINE OR REAL-TIME CLOCK IS FOUND, THE PROGRAM WILL CONTINUE 
le THE PROGRAM THAT TIMES THE DEVICE WILL HANG IF THE DEVICE 


IT IS NOT THE INTENTION OF THE NIE TO TEST THE DEVICE (DEUNA), 
BUT TQ TEST THE COMMUNICATIONS LINK TO WHICH IT IS CONNECTED. 


THE PREREQUISITE DIAGNOSTICS ARE: 


er 2 e+ SS 


~ 


#! 
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- CZUAAAO DEUNA REPAIR LEVEL DIAGNOSTIC 
- CZUABAO DEUNA FUNCTIONAL LEVEL DIAGNOSTIC 


ALSO AVAILABLE FOR TEST IS: 

- CXUACAO DEUNA DEC/X-11 MODULE 

1.5 ASSUMPTIONS 

IT IS ASSUMED THAT THE COMMUNICATIONS DEVICE (DEUNA) HAS BEEN TESTED 

USING THE PREREQUISITE DIAGNOSTICS. THE OPERATOR SHOULD HAVE READ THE 

USER DOCUMENTATION PROTION OF THE LISTING TO FAMILIARIZE HIMSELF WITH 

aa aa S AND CAPABILITIES AVAILABLE UNDER THE DIAGNOSTIC SUPERVISOR 

1.6 HISTORY 

22-MARCH-84 NICK MCCAMY 

THE SECTION “ALL” AND “LOOPPAIR” TESTS HAVE BEEN MODIFIED. THESE ce WOULD 
RUNNING. THE PROGRAM WAS TRYING TO SET-UP THE BLANK SPACE (LEFT BY THE 
DELETED NODE) AS A TARGET OR ASSIST NODE. THIS PROBLEM HAS BEEN CORRECTED. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT he THAT WAS INTERRUPTED CAFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 

ExIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 


CONSIDERED TO BE ACTIVE AT START TIME 


OROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


2.2 SWITCHES 


Fi 
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THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDOS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS: aw ie 
THIS LIST WILL CAUSE TESTS 1,.5.7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS :D0000 EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 


7EOP : 00000 REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DODDD = 1 TO 64000) 
/UNITS:LIST TEST/ADO/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-S/PASS: 1000/E0P: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5S WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE — OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY 

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. “you MAY, 
FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF “/TESTS:1-5”". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
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ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDOS, 
NO COMMANOS 


AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBEs INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (CFIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXE« INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX ) 

PRI OIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTOOROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 
HAVE EVALUATION SUPPORT) 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) ?” 

YOU MUST ANSWER “Y” AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


@ UNITS (D) ? 1<CR> 


UNIT O 

DEVICE CSR ADDRESS : (0) 164524 ?<CR> 
INTERRUPT VECTOR ADDRESS : (0) 120 2?<CR> 
INTERRUPT PRIORITY : (0) 5S ?<CR> 


Hi 
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WHEN YOU COMPLETE THE ABOVE SEQUENCE YOU WILL BE AT THE NIE> 


COMMAND LEVEL. 


NIE> CA) ? 


2.5 NETWORK INTERRCONNECT EXERCISER COMMANDS 

THE “NIE>“ COMMAND LEVEL FOLLOWS THE ATTACHING OF THE DEVICE AND 
ISSUING THE START TO THE SUPERVISOR. THESE COMMANDS CAN BE TYPED 
WHEN THE “NIE>” PROMPT IS PRINTED. 


YOU ONLY HAVE TO TYPE ENOUGH CHARACTERS TO UNIQUELY SPECIFY A 


COMMAND . 
HELP OR ? 
SHOW NODES 
SHOW MESSAGE 


SHOW COUNTERS 


NODE ADR/TYPE 


THE COMMAND LINE IS INTERPRETED FROM LEFT TO RIGHT. 


PRINTS OUT A BRIEF DESCRIPTION OF NIE COMMANDS. 
PRINTS OUT THE CONTENTS OF THE NODE TABLE. 


PRINTS OUT THE CURRENT MESSAGE PARAMETERS FOR SIZE, 
TYPE AND COPIES. 


PRINTS OUT THE CONTENTS OF THE HOST NODE DEUNA INTERNAL 
COUNTERS. 


THE NODE COMMAND ALLOWS THE OPERATOR TO ENTER NODES INTO 
THE NODE TABLE. NODES ARE SPECIFIED USING THEIR 12 HEX 
DIGIT ETHERNET PHYSICAL ADDRESS AND CAN BE SPECIFIED AS 
EITHER TARGET OR ASSIST CA DEFAULT OF TARGET IS ASSUMED). 


MESSAGE/TYPE=/SIZE=N/COPIES=™ THE MESSAGE COMMAND ALLOWS THE OPERATOR 


TYPE 


SIZE 


COPIES 


TO SELECT THE CURRENT MESSAGE PARAMETERS AS FOLLOWS. 


ANY OR ALL OF THE PARAMETER CAN BE CHANGED WITH THE COMMAND. 


THE DEFAULT PARAMETERS ARE TYPE*ALPHA,SIZE*512,COPIES=1. 
ONE OF THE FOLLOWING MESSAGE TYPES: 


ALPHA -- !"@$8'( )e+,-./0123456789; : = 7ABCDEFG ETC. 

ONES -- MESSAGE OF ALL ONES (11111111....) 

ZEROS -- MESSAGE OF ALL ZEROS (0000000....) 

1ALT -- ALTERNATING 1‘S AND 0'S (10101010...) 

OALT -- ALTERNATING O'S AND 1‘'S (01010101...) 

CCITT -- “CCITT” PSEUDO-RANOOM TEST PATTERN 

OPERATOR SELECTED -- OPERATOR CHOSEN PATTERN OF LESS THAN 
72 CHARACTERS USING 0-9, A-Z AND SPACES. (NOT USED IN 
PATTERN TEST) 


THE SIZE OF THE MESSAGE BUFFER (DATA ONLY )MAY BE BETWEEN 
32 AND 1466 BYTES. 


THE NUMBER OF COPIES OF EACH MESSAGE SENT TO EACH NODE 
DURING A TEST MAY BE BETWEEN 1 AND 255. 


RUN TEST/PASS=NN CAUSES EXECUTION OF THE SPECIFIED TEST FOR NN NUMBER OF 


PASSES. A DEFAULT VALUE OF 1 IS ASSUMED IF /PASS=NN IS 


SEQ 7 


Ii 
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DIRECT 


LOOPPAIR 


PATTERN 


ALL 


NOT INCLUDED IN THE COMMAND LINE. A VALUE OF NN«=-1 WILL 
CAUSE THE TEST TO BE RUN INDEFINATELY. NODE ADDRESSES 
FOR THE TESTS ARE TAKEN FROM THE NODE TABLE AND SHOULD BE 
ENTERED PRIOR TO RUNNING THE TEST USING THE NODE COMMAND. 
IN THE CASE OF THE LOOPPAIR TEST, NODE PAIRS ARE REQUIRED 
AND MUST BE SPECIFIED AS TARGET AND ASSIST NODES. THE 
CURRENTLY SELECTED VALUES FOR MESSAGE TYPE, SIZE AND 
COPIES ARE USED BY EACH TEST. 


THERE ARE FOUR TEST TO CHOSE FROM: 


THE DIRECT TEST SENOS A LOOP DIRECT MESSAGE TO ALL OF THE 
NODES CONTAINED IN THE NODE TABLE AND WAITS FOR A RESPONSE. 
THE INTEGRITY OF THE RETURNED DATA IS CHECKED AND ANY ERRORS 
ARE REPORTED TO THE OPERATOR. 


THE LOOPPAIR TEST SENDS ASSISTED LOOPBACK MESSAGES TO THE 
NODE PAIRS CONTAINED IN THE NODE TABLE. THREE TYPE OF ASSISTED 
MESSAGES ARE SENT: 


1) RECEIVE ASSIST -- HOST -> TARGET -> ASSIST -> HOST 
2) TRANSMIT ASSIST -- HOST -> ASSIST -> TARGET -> HOST 
3) FULL ASSIST -- HOST -> ASSIST -> TARGET -> ASSIST -> HOST 


IN EACH CASE A RESPONSE IS WAITED FOR AND THE DATA IS CHECKED. 


WHEN RUNNING THE LOOPPAIR TEST, BE VERY CAREFUL WHEN DELETING 
NODES. IT IS BETTER TO DELETE NODES IN PAIRS ( ONE TARGET 
NODE AND ONE ASSIST NODE). 


#e¢ IMPORTANT!! #e¢ ---> THE LOOPAIR TEST EXPECTS THAT EACH 
TARGET NODE HAVE A CORRESPONDING ASSIST NODE, AND THAT THE 
ORDER OF THE NODES IN THE NODE TABLE BE THE FOLLOWING: 


FIRST NODE IN TABLE: TARGET 
2ND NODE IN TABLE: ASSIST 
3RD NODE IN TABLE: TARGET 
4TH NODE IN TABLE: wa i ie 


BE VERY CAREFUL WHEN DELETING NODES. IT IS BEST TO DELETE 
NODES IN PAIRS ( ONE TARGET NODE AND ONE ASSIST NODE). 


THE PATTERN TEST SENOS SIX DIFFERENT LOOP DIRECT MESSAGES 
TO EACH NODE CONTAINED IN THE NODE TABLE. EACH OF THE SIX 
PATTERN TYPES CALPHA, ONES, ZEROS, 1ALT, OALT, CCITT) 

IS USED FOR EACH NODE. RETURNED DATA IS CHECKED FOR ERRORS. 


THE ALL NODE TEST PERFORMS THE MOST EXTENSIVE CHECK OF THE 
NETWORK AND IS COMPOSED OF TWO PARTS. FIRST A LOOP DIRECT 
MESSAGE IS SENT TO EACH NODE IN THE TABLE. IF THIS IS 
SUCCESSFUL, THE EXERCISER BUILOS AN ARRAY OF NODE PAIRS 
FROM THE TABLE AND SENDS A FULL ASSISTED LOOPBACK MESSAGE 
TO EACH PAIR IN THE ARRAY. & SAMPLE ARRAY OF PAIRS FOR A 
TABLE WITH 7 NODES IS SHOWN BEL CY. 


SEQ 8 


J1 
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> RRR eRe 
' ‘ ‘ ' ' ‘ 
NOU Sw 


IDENTIFY ADR REQUEST ID MESSAGE IS SENT TO THE NODE SPECIFIED BY ADR 


AND THE RESPONDED SYSTEM ID PARAMETERS ARE PRINTED 


BUILD THE BUILD COMMAND CAUSES THE EXERCISERS TO LISTEN FOR 
SYSTEM ID MESSAGES WHICH ARE BROADCAST BY ALL DEUNA NODES 
ONCE EVERY 10 MINUTES. ALL NODES IDENTIFYING THEMSELVES 
ARE ADDED TO THE NODE TABLE. THE BUILD COMMAND STOPS 
WHEN NO NEW NODES HAVE BEEN ADDED FOR 10 MINUTES OR WHEN 
40 MINUTES HAVE ELAPSED. THE AVERAGE TIME FOR THIS 
COMMAND SHOULD BE 15-25 MINUTES. 


CLEAR NODE/ADR THE CLEAR NODE COMMAND CLEARS THE SPECIFIED NODE FROM 
THE NODE TABLE. THE NODE CAN BE SPECIFIED BY EITHER 
ITS 12 DIGIT PHYSICAL ADDRESS OF ITS LOGICAL NAME 
CAS ASSIGNED BY NODE TABLE). 

CLEAR NODE/ALL THIS COMMAND CLEARS THE NODE TABLE. 


CLEAR MESSAGE THIS COMMAND SETS THE MESSAGE PARAMETERS BACK TO THE 
DEFAULT VALUES. 


CLEAR SUMMARY THIS COMMAND CLEARS THE SUMMARY TABLE. 

SUMMARY THE SUMMARY COMMAND PRINTS OUT THE SUMMARY TABLE. 
THE NIE MAINTAINS THE FOLLOWING INFORMATION FOR 
NODES WHO HAVE BEEN SENT MESSAGES: 


RECEIVES NOT COMPLETE RECEIVES COMPLETE 


LENGTH ERRORS DATA COMPARE ERRORS 
BYTES COMPARED BYTES TRANSFERED 
SAVE THE SAVE COMMAND SAVES THE CONTENTS OF THE NODE TABLE. 


FOR THE VAX VERSION, THE TABLE IS SAVED IN A FILE CALLED 
NIE.TBL. THE POP-11 VERSION CANNOT WRITE TO EXTERNAL 
MEDIA, SO THE CONTENTS ARE SAVE INTERNALLY. 


UNSAVE THE UNSAVE COMMAND RESTORES THE CONTENTS OF THE NODE TABLE. 
USED. THE POP-11 VERSION USES THE CONTENTS OF ITS 
INTERNALLY SAVED TABLE. 


UNSAVE/FILE.EXT THE UNSAVE COMMAND WHEN USED WITH A FILE NAME WILL READ 
a. TABLE CREATED BY USING AN EDITOR FOR AN XXDP+ 


EXIT RETURNS CONTROL TO THE DIAGNOSTIC SUPERVISOR 
(EITHER VOS OR DRS). 


NOTES: 1) ADR IS THE PHYSICAL ADDRESS OF A NODE ON THE NI. 
2) PASS COUNT IS A DECIMAL NUMBER BETWEEN 1 AND 65534. 


K1 
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A DEFAULT VALUE OF 1 IS ASSUMED. SPECIFYING -1 
CAUSES THE TEST TO BE RUN INDEFINATELY. 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE SW (L) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


2.6 QUICK START-UP PROCEDURE (XXDP;+) 
TO START-UP THIS PROGRAM: 


1. BOOT XXDP-+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


TYPE “START” 

ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
ANSWER ALL THE HARDWARE QUESTIONS 
ANSWER THE “CHANGE SW” QUESTION WITH "N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS ' 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE csvs FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR —— 
UNIT NUMBER = - N (CN IS LAST UNIT IN PTABLE) 
TST NUMBER = Test AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


vn oy ® 


a: 
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BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 

PRINTED UNLESS THE "IER", “IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). 

THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. ' 


3.2 SPECIFIC ERROR MESSAGES 
ERROR MESSAGE: MEANING 


2?ILL CMD-BAD SYNTAX A COMMAND WITH AN ILLEGAL CHAR WAS 
TYPED - RETYPE THE COMMAND. THE VAILD 
COMMANDS AND THEIR SYNTAX ARE SHOWN 
IN SECTION 2.5 


2? INCOMPLETE 4 a PART OF A COMMAND WAS LEFT 


?NUMBER TOO BIG THE VALUE OF A NUMERIC STRING IN THE 
COMMANDO LINE WAS LARGER THAN 65535 
OR 177777 OCTAL. (€ >16 BITS). 


?BAD RADIX A "8" OR "9" WAS TYPED WHEN AN OCTAL 
STRING WAS EXPECTED. PROBABLY OCCURED 
WHEN TYPING A “DUMP” COMMAND WHERE 
OCTAL ADDRESSES ARE EXPECTED. 


EXAMPLE OF A LOST PACKET ERROR DURING LOOPPAIR TESTING 


CZUAC HRD ERR 00028 ON UNIT 00 TST 001 SUB 000 PC:064442 


TIMEOUT OCCURED - LOOP MESSAGE TYPE - RECEIVE ASSIST 
FAILING TARGET NODE ADDRESS: AA-00-03-00-00-00 
FAILING ASSIST NODE ADDRESS: AA-00-03-00-00-02 


EXAMPLE OF A LOST PACKET ERROR DURING PATTERN TESTING 


CZUAC HRD ERR 00028 ON UNIT 00 TST 001 SUB 000 PC:63730 


TIMEOUT OCCURED BEFORE LOOPBACK REPLY 
FAILING NODE ADDRESS: AA-00-03-00-00-00 
DATA PATTERN: ONES 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


M1 
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5.0 DEVICE INFORMATION TABLES 


THIS IS THE DEFAULT HARDWARE P-TABLE. THE VALUES AND SIZE ARE USED 
AS A “TEMPLATE” FOR CREATING ACTUAL P-TABLE ENTRIES AND THE DEFAULT 
VALUES PROVIDED FOR THE OPERATOR. SEE SECTION 2.4 FOR AN EXAMPLE OF 
THE HAROWARE QUESTIONS. 


THE NUMBERS IN BRACKETS (I.E. (6]) INDICATES THE OFFSET OF THE WORD 
INTO THE HARDWARE P-TABLE. THE OFFSETS MUST MATCH THE P-TABLE OFFSETS 
USED IN THE HARDWARE PARAMETER CODING SECTION WHERE THE “GET PARAMETER” 


” CALLS ARE USED TO FILL THE P-TABLE. 
-WORD 174510 3(0}) CSR ADDRESS 
-WORD 120 3(2) INTERRUPT VECTOR 
-WORD 240 3(6]) INTERRUPT PPIORITY (5) 


6.0 TEST SUMMARIES 
6.1 DIRECT 


THE DIRECT TEST SENDS A LOOP DIRECT MESSAGE TO ALL OF THE 
NODES CONTAINED IN THE NODE TABLE AND WAITS FOR A RESPONSE. 
THE INTEGRITY OF THE RETURNED DATA IS CHECKED AND ANY ERRORS 
ARE REPORTED TO THE OPERATOR. 


6.2 LOOPPAIR 


THE LOOPPAIR TEST SENDS ASSISTED LOOPBACK MESSAGES TO THE 
NODE PAIRS CONTAINED IN THE NODE TABLE. THREE TYPE OF ASSISTED 
MESSAGES ARE SENT: 


1) RECEIVE ASSIST -- HOST -> TARGET -> ASSIST -> HOST 
2) TRANSMIT ASSIST -- HOST -> ASSIST -> TARGET -> HOST : 
3) FULL ASSIST -- HOST -> ASSIST -> TARGET -> ASSIST -> HOST 


IN EACH CASE A RESPONSE IS WAITED FOR AND THE DATA IS CHECKED. 
6.3 PATTERN 


THE PATTERN TEST SENDS SIX DIFFERENT LOOP DIRECT MESSAGES 
TO EACH NODE CONTAINED IN THE NODE TABLE. EACH OF THE SIX 
PATTERN TYPES (ALPHA, ONES, ZEROS, 1ALT, OALT, CCITT) 

IS USED FOR EACH NODE. RETURNED DATA IS CHECKED FOR ERRORS. 


6.4 ALL 


THE ALL NODE TEST PERFORMS THE MOST EXTENSIVE CHECK OF THE 
NETWORK AND IS COMPOSED OF TWO PARTS. FIRST A LOOP DIRECT 
MESSAGE IS SENT TO EACH NODE IN THE TABLE. IF THIS IS 
SUCCESSFUL, THE EXERCISER BUILDS AN ARRAY OF NODE PAIRS 
FROM THE TABLE AND SENDS A FULL ASSISTED LOOPBACK MESSAGE 
TO EACH PAIR IN THE ARRAY. A SAMPLE ARRAY OF PAIRS FOR A 
TABLE WITH 7 NODES IS SHOWN BELOW. 


Ni 
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1-2 2-3 3-4 4-5 5-6 6-7 

1-3 2-4 3-5 4-6 5-7 

1-4 2-5 3-6 4-7 

1-5 2-6 3-7 

1-6 2-7 

1-7 

é 
683 .SBTTL PROGRAM HEADER 
09 
710 000000 -ENABL ABS,AMA 
7il 002000 . = 2000 
712 
713 
714 .SBTTL PROGRAM MACROS 
715 
716 
717 ;I$STACK MACRO 
718 procter rere ee- 
719 
720 ptee 
721 3 THE I$STACK MACRO FACILITATES INITIALIZING THE R6 (HARDWARE) STACK 
722 ;AND THE RS (PARAMETER) STACK. RS IS SET TO THE STACK LOW LiMIT 
723 ;(STAKLO) AND THE PARAMETER STACK GROWS UPWARD. R6 IS SET TO. THE 
724 3STACK HIGH LIMIT (STAKHI) AND THE HARDWARE STACK GROWS DOWNWARD. 
725 :;IF THERE IS A STACK OVER-RUN, IT WILL BE DETECTED BY THE PREG14 
726 ;ROUTINE. 
727 foes 
728 
La .MACRO I$STACK STAKLO,STAKHI 
731 MOV STAKLO,RS s INITIALIZE THE PARAMETER STACK POINTER. 
st MOV STAKHI, SP sINITIALIZE THE HARDWARE STACK POINTER. 
734 .ENOM I$STACK 
735 
736 3;PUSH MACRO 
737 peepemnianeesine 
738 
739 pee 
740 ;THE “PUSH” MACRO FACILITATES PUSHING ITEMS ON THE HARDWARE STACK. 
ed ;UP TO SEVEN ITEMS MAY BE PLACED ON THE STACK WITH ONE MACRO. 
3 -—-<— 

743 - MACRO PUSH A,B,.C.0.E,.F.G 
744 
745 .IF NB G 
746 MOV G,-(SP) 
747 .ENDC 
748 ; 
749 .IF NB F 
750 MOV F,-(SP) 
751 ENDC 
752 
753 


IF NB E 
754 MOV E,-(SP) 


Bo 
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OGRAM MACROS 
755 -ENOC 
756 
757 IF 
758 MOV 0, -(SP) 
789 . ENO 
760 
761 IF 
762 MOV C.-CSP) 
763 ENO! 
764 
765 IF 8 
766 MOV 8B, -(SP) 
767 ENO 
768 
769 . IF 
770 MOV A,-C(SP) 
771 E 
772 
773 -ENOM PUSH 
774 
775 sPOP MACRO 
776 Broce e eee 
var 
778 gooe 
779 sTHE “POP” MACRO FACILITATES RETRIEVING ITEMS FROM THE HAROWARE STACK. 
780 sUP TO SEVEN ITEMS MAY BE RETRIEVED WITH ONE MACRO. 
781 t--- 
782 
«MACRO POP A,B.C,.0.E.F.G 
785 .IF ND A 
786 MOV (SP)+,A 
787 -ENOC 
788 
789 IF NB B 
790 MOV (SP)+,B8 
791 .ENOC 
792 
793 -IF NBC 
794 MOV (SP )+,C 
795 -ENOC 
796 
797 .IF NBO 
798 MOV (SP)+,0 
799 .ENOC 
800 
801 -IF NB E 
802 MOV (SP)+,E 
803 -ENOC 
804 
805 .IF NB F 
806 MO (SP )+,F 
807 .ENOC 
808 
809 .IF NBG 
810 MO (SP)+,G 


811 .ENOC 


Ce 
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PROGRAM MACROS 
812 
613 -ENOM POP 
814 
815 sCALL MACRO 
816 clea ta asi 
817 
818 pooe 
819 3 THE CALL MACRO FACILITATES CALLING A SUBROUTINE VIA THE REGISTER 
820 } PRESERVE ROUTINE (PREG14). IT PLACES THE PARAMETERS TO BE PASSED ON 
821 3THE PARAMETER STACK. UP TO 7 PARAMETERS MAY BE PASSED USING THIS 
822 sMACRO. 
823 gsee 
824 
825 -MACRO CALL S A,8,C,0.E.F.G 
826 
827 .IF NBG 
828 MOV G,CRS)> 
829 -ENOC 
830 
831 -IF NB F 
832 MOV F.CRS)> 
833 -ENOC 
834 
835 -IF NB E 
836 MOV E,CRS)+ 
837 -ENOC 
838 
839 -IF NB DO 
840 MOV D,CRS)> 
841 -ENOC 
842 
843 -IF NBC 
844 MOV C.CRS)-> 
845 -ENOC 
846 
847 IF NB B 
848 MOV B,CRS)>+ 
849 .ENOC 
850 
851 -IF NB A 
852 MOV A,CRS)-> 
853 -ENOC 
854 
855 JSR R4,PREG14 
=F -WORD S-ANCHOR 
858 -ENOM = =CALL 
859 
860 sRETURN MACRO 
861 Br crete eeee 
862 
863 gee 
864 1 THE RETURN MACRO FACILITATES PASSING PARAMETERS BACK TO A CALLING 
865 sROUTINE. UP TO 7 PARAMETERS MAY BE PASSED BACK ON THE PARAMETER 
ae sSTACK, 
3 -*-. 


BAYARRS RRYNBSNT EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 3-13 


«MACRO RETURN A,B6,C,0,E.F.G 


IF G 

MOV G,CRS): 
. c 

.IF NB F 

MOV F,CRS)> 
-ENOC 

.IF NB E 

MOV E,CRS)>+ 
-ENOC 

.IF NB O 

MOV 0,CRS)> 
-ENOC 

-IF NBC 

MCV C.CRS)-+ 
-ENOC 

oar 8 

MOV B.CRS)>+ 
E 

-IF NB A 

MOV A,CRS)+ 
-ENOC 

RTS PC 
-ENOM RETURN 
3P$PUSH MACRO 


geeoe 


3 THE P$PUSH MACRO FACILITATES PUSHING PARAMETERS ON THE PARAMETER 
UP TO SEVEN ITEMS MAY BE PUSHED WITH ONE MACRO, 


sSTACK. 
gs 


-MACRO PSPUSH A,8,.C,0.E.F.G 


De 


SEQ 16 


EQ 


SEQ 17 
-MAR-84 10:53 PAGE 3-14 
NI EXERCISER DIAG MACRO M1200 22-MAR-84 
BRYBERS REYNE. 
MO D.(RS)+ 
os JENDC 
= 
LIF NB 
134 HOV C.(RS)» 
+4 JENOC 
su 
LIF NB 
9 
935 JENDC 
LIF NBA 
ose HOV A,CRS)+ 
938 .ENOC 
939 
or .ENOM —- P$PUSH 
941 
eas :P$POP MACRO 
943 sPSPOP MACRO 
944 
st PARAMETER 
tHE PARAMETERS FROM THE 
RO FACILITATES RETRIEVING 
348 STACK. UP TO 7 PARAMETERS MAY Be MaTRIeveD” 
930 : S THE RESPONSIBILITY OF 
T RECEIVES THE PARAMETERS HA 
231 TTEANILG UP THE PAAMRYER STHOC The mcs to AN AIO TO MAKING 
4 tA LOCAL COPY OF PASSED PARAMETERS AND CLEANING UP 
953 AL 
954 3 
956 .MACRO PSPOP A,B,C.0.E.F.G 
95) 
. F NB A 
360 JENDC 
IF N88 
964 JENOC 
. F NB c 
39 nay -(RS),C 
968 “ENOC 
IF NBD 
ort ed -(RS),D 
972 JENDC 
LIF NBE 
976 JENOC 
. F NB F 
980 JENDC 
LIF NBG 
982 I 
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MOV 
-ENDC 


-ENDM 


Fe 


-(RS),G 


PsPOP 


SEQ 18 


CHAR ,HITVAL ,MISADR ,CMPSTR 
CHAR ,HITVAL ,\X$,MISADR,CMPSTR 330000 PARSE TREE 0000 


CHAR ,HITVAL ,.XY,MISADR,CMPSTR 


CHAR ,HITVAL 


MISADR -NOD‘ XY 


1$-NOD' XY 
CMPSTR 


-MACRO RNGFRM A,B,C 


B=B+1 


-NLIST 
-ENOM 


-MACRO NEXT A,B 


. ENOM 


see 


sSPECIAL CHAR. CODE OR COMPARE CHAR. 
s AND ACTION CHIT) VALUE FOR ACTION 
s ROUTINES. 

sDISPLACEMENT TO “MISS” NODE (BYTES) 


sDISPLACEMENT TO GET TO NEXT NODE 
s CONLY IF ITS A "CLISTR” NODE) 


; MACRO TO FORM TRANSMIT AND RECIEVE 
; DESCRIPTOR RINGS. 


; SEGMENT LENGTH 


3 OWNERSHIP AND STATUS BITS 
3; STATUS 
3; SEQUENCE NUMBER 


s SEGMENT BUFFER ADDRESS 


; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
s THE DIAGNOSTIC PROGRAM AND ‘HE SUPERVISOR. 


Ge 
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112762 
000000 
002170 
000000 
113166 


POINTER BGNRPT 


HEADER CZUAC,A,0,0,1,PRIO7 


LSNAME: : 

ASCII 

ASCII 

[ASCII 

[ASCII 

“ASCII 

BYTE 

“BYTE 

BYTE 
LSREV:: 

ASCII 
LSDEPO:: 

SCII 
LSUNIT 
D 

LSTIM: 
LSHPCP::- 
LS$SPCP:: 
LSHPTP::- 
L$SPTP:: | 
LSLADP::- 
LSSTA:: © 
L$COo:: ’ 
LSDTYP::- 

. WORD 
LSAPT:: 
LsoTP:: — 
LSPRIO:: | 
LSENVI::- 
LSExP1:: 
LSMREV::- 

BYTE 
LSEF; 

. WORD 

~ WORD 
L$SPC: 


SEQ 19 


L$LAST 
0 
° 
L 
° 


LSDISPATCH 


PRIO7 
° 
° 


CSREVISION 
CsEDIT 


i) 
\°) 
.Y) 


He 
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002122 
076560 
000000 
000000 


076600 
100142 
100140 
076572 
000000 
000000 
000000 


104 
116 


105 
101 


125 


3 
3; NAMES OF DEVICES SUPPORTED BY PROGRAM 


3 
DEVTYP <DEUNA> 


; TEST DESCRIPTION 


° 
DESCRIPT <CZUAC DEUNA NI EXERCISER> 


L$DEVP:: 
LSREPP:: 
LSExP4:: 
LSEXPS:: 
L$AUT:: 
L$DUT:: 
L$LUN:: 
LSDESP:: 
LSLOAD: :_ 


EMT 


LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: — 
LSPRT:: 
LSTEST:: 
LSOLY:: 
LSHIME:: 


LSDVTYP:: 


LSDESC:: 


-ASCIZ 


ASCIZ 


EVEN 


SEQ 20 


L$OvTYP 
L$RPT 


oe 6889 @ 


L$DESC 
E$LOAD 
1°) 
LSINIT 
LS$CLEAN 
LS$AUTO 
L$PROT 
0 

0 

0 


/DEUNA/ 


/CZUAC DEUNA NI EXER 


Ie 


CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 3-18 
PROGRAM MACROS 


002155 123 105 122 
002160 000 


1092 - EVEN 


; 
18s ; FORMAT STATEMENTS USED IN PRINT CALLS 
‘ 


-EVEN 


SEQ 21 


Je 
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DISPATCH TABLE 


-SBTTL OISPATCH TABLE 


gee 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 1 


. WORD 
L$DISPATCH: : 
. WORD 


T1 


SEQ 22 


Ke 
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BEPAULT HARDWARE B-TASLE ssid) rte _— 

1141 .SBTTL DEFAULT HARDWARE P-TABLE 

1142 

1143 pee 

1144 ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

1145 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 

1146 ; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 

art ; AND IS USED AS A “TEMPLATE” FOR BUILDING THE P-TABLES. 

114 ten 

1149 

1150 002166 BGNHW OFPTBL 
002166 000003 -WORD L10000-L$HW/2 
002170 L$HW:: 

s258 002170 OFPTBL:: 

1152 002170 174510 . WORD 174510 s CSR 

1153 002172 000120 . WORD 120 ; VECTOR 

a4 002174 000240 .WORD PRIOS ; PRIORITY 

1165 

1166 002176 ENOHW 


002176 L10000: 


Le 
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SEVAGE RSAMANE BSFRGEE sea 20 
1169 
1170 .SBTTL SOFTWARE P-TABLE 
1171 
1172 ee 
1173 3; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
1174 ; PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
1175 ; SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 
1176 ; AT RUN TIME. 
1177 hee 
1178 
1179 002176 BGNSW SFPTBL : 
002176 000000 : -WORD . L10001-L$SW/2 
002200 L$SW:: : 
002200 SFPTBL:: 
1180 
1188 
1189 002200 ENODSW 
002200 L10001: 
1190 
1191 -SBTTL GLOBAL EQUATES SECTION 
1192 
1202 
1203 
1204 see 
1205 ; THE GLOBAL EQUATES SECTION — PROGRAM EQUATES THAT 
1206 3; ARE USED IN MORE THAN ONE TEST 
1207 — 
1208 
1223 
1224 002200 EQUALS 
3 
; BIT DIFINITIONS 
é 
100000 BIT15== 100000 
040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004000 BIT11== 4000 
002000 BIT102== 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BITO6== 100 
000040 BITOS== 40 
000020 BITO4== 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
° 
001000 BIT9== BITO9 
000400 BIT8== BITOS 
000200 BIT7== BITO7 
000100 BIT6== BITO6 
000040 BITS== BITOS 
000020 BIT4== BITO4 


000010 BIT3== BITOS 


Me 
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EZYAGBO, DEUNA NE EXERCISE DIAG MACRO M12 22 1 SEQ 25 
000004 BITe== BITOe 
000002 BITi== BITOL 
000001 BITO== BITOO 
; 
; EVENT FLAG DEFINITIONS 
; €F32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
; 
000040 EF .START== 32. s START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. ; RESTART COMMAND WAS ISSUED 
000036 EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 
000034 EF .PWR== 28. ; A POWER-FAIL/POWER-UP OCCURRED 
; 
3 
; PRIORITY LEVEL DEFINITIONS 
G 
000340 PRIO7== 340 
000300 PRIO6== 300 
000240 PRIOS== 240 
000200 PRIO4== 200 
000140 PRIO3== 140 
000100 PRIO2== 100 
000040 PRIO1== 40 
000000 PRIOO== 0 
‘ 
;OPERATOR FLAG BITS 
; 
000004 EVL== 4 
000010 LOT== 10 
000020 ADR== 20 
000040 I0U== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT == 1000 
002000 PRI== 2000 
004000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
100000 HOE== 100000 


6COBRE ERG 


1226 
1227 
1228 


Ne 
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3: sEQUATES FOR FLAG WORD;;:;:;; 


CTARGT==0 
CASIST==1 
CSHCTR==2 
CCLNAD==4 


CCLNAL==8, 
CExXIT==16. 


33;CLOCK ENABLE VALUES TO BE LOADED IN CLK’S CSR;;; 


LCLKEN==100 
PCLKEN#==111 
PCLKCT==1600 


sARG TYPE FOR ‘SHOW COUNTERS’ CMD 
sARG TYPE FOR ‘CLEAR NODE/ADR’' CMD 
sARG TYPE FOR ‘CLEAR NODE/ALL’ CMD 


3; L-CLOCK CSR VALUE TO ENABLE THE CLOCK 
3; P-CLOCK CSR VALUE TO ENABLE THE CLOCK 
; P-CLOCK COUNT SET REGISTER FOR COUNTER 


; SPECIAL CLI CODES FOR “CHAR” ARGUEMENT IN CLI CALLS 


CCOMM: 


CLIERR= 
CLIEXI= 
CLIBR = 
CLIBIF= 
CLISPA= 
CLINUM= 
CLIALP= 
CLIALN= 
CLIOCT= 
CLIDEC= 


CLISTR= 10. 


WBNAULSWMPrO 


AND LINE INTERPRETER DEFINITIONS) 


sDEFS FOR COMMAND LINE INTERPRETATION ACTION VALUES 


CSAVE=6 


COPRSL =24 


- CTYPE=25 


CSIZE=26 
CCPYS=27 
CNDADR =30 


SEQ 26 


B3 
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000031 
32 


CNODAL *31 
CRNALL =3e2 


CUNSAV #41 
CCLSUM=42 
COIR-43 

CDOEFLT #44 
CUNSVF #45 


ZROALT #24 
CCITT#*5 
OPRSEL = =6 


SEQ 27 


sMESSAGE TYPE VALUES 


4 GLOBAL EQUATES FOR THE DEUNA DRIVER 


sPORT CONTROL AND STATUS REGISTER 0 


GETPCB == BITOO 
GETFNT ** BITOL 
PNOP == BITOO!BITOL 
STRT = BITO2 
BOOT *= BITO2:BITOO 


POMD =* BITOS 

TMRO == BITOS!BITOO 

TMRF ==* BITOS!IBITOL 

RSTT =* BITOS!BITO]:BITOO 

STOP == BITOS!IBITO2]:BITO1!BI TOO 


SERI ee BIT15 s STATUS ERROR INTERRUPT 
PCEI ee BIT14 s PORT COMMAND ERROR INTERRUPT 
RXI ee BIT13 s RECEIVE RING INTERRUPT 
TXI se BITi2 3 TRANSMIT RING INTERRUPT 

. ONI ee BIT1i1 s DONE INTERRUPT 
RCBI ee BIT10 s RECEIVE BUFFER UNAVAILABLE 
6 
FATI ee BITOS s FATAL ERROR INTERERUPT 
INTR es BITO7 3s INTERRUPT SUMMARY <15:08> 
INTE ee BITO6 s INTERRUPT ENABLE 
RSET ss BITOS 3 UNA RESET 


GET ADORESS OF PORT CONTROL BLOCK 

GET COMMAND IN PORT CONTROL BLOCK 

NO OPERATION PERFORMED 

ENABLE XMIT AND RCVR 

BOOT , -> PRIM LOAD STATE, 
INITATE DOWNLINE LOAD 


POLLING DEMANO/WAKE UP BIT 
SANITY TIMER ENABLE ( *1 ITS ON) 
SANITY TIMER OFF 

RESET SANITY TIMER 

SUSPEND UNA OPERATION 
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GLOBAL EQUATES SECTION 


oe 


sPORT CONTROL AND STATUS REGISTER 1 
XPWR == BITIS s TRANSCEIVER POWER OK 
ICAB == BIT14 s PORT TO LINK CABLE OK 
3 SELF TEST tae CODE IN BIT y Aly 08 
PCTO == BITO T COMMAND TIMEOUT 
RMTC ** BITOS s REMOTE CONSOLE RESERVED (+1) 
s PORT STATE IN BIT 2 TO BIT O 
RESET == 0 s 000 RESET STATE 
PRIMLDO== BITOO s 001 PRIMARY LOAD STATE 
READY== BITO1 s ©10 READY STATE 
RUN == BITOL!BITOO s O11 RUNNING STATE 
UNIMLT «= BITO2!BITOO s 101 UNIBUS HALTED STATE 
NIMLT *= BITO2]!BITO1 s 110 NI HALTED STATE 
NIUNI <= BITO2!BITOL!IBITOO s 111 NI AND UNIBUS HALTED STATE 
sPORT CONTROL AND STATUS REGISTER 2 
3s LOWER 16 ADORESS BITS OF THE PORT —_— BLOCK BASE 
s ADDRESS POINTER IN BIT 15 TO BIT O 
sPORT CONTROL AND STATUS REGISTER 3 
3s UPPER 2 ADDRESS BITS OF THE PORT CONTROL BLOCK BASE 
s ADDRESS POINTER IN BIT 1 7O BIT O 
sPORT FUNCTIONS 
s FUNCTION CODES ARE AS FOLLOWS 
PFNOP == 0 s NO OPERATION PERFORMED 
RODEFA == BITO1 + READ DEFAULT PHYSICAL ADDRESS 
ROPHYA == BITO2 s READ PHYSICAL ADORESS 
WOPHYA == BITO2!:BITOO s WRITE PHYSICAL ADORESS 
ROMULA =* BITO2]!:BITOL s READ LIST OF MULTICAST ADDRESSES 
WOMULA == BITO2!IBITOL!BITOO ; WRITE LIST OF MATICAST ADDRESSES 
RORNGS == BITOS s READ BOTH THE RCVR AND XMIT RINGS 
WORNGS == BITOS!IBITOO 3 WRITE BOTH THE RCVR AND XMIT RINGS 
ROCNTS 2 BITOS!BITOL s READ COUNTERS 
CLRCNTS ** BITOS!IBITOL!BITOO ; READ AND CLEAR COUNTERS 
ROMODE ** BITOS!BITO2 s READ INTERNAL LINK MODE REGISTER 


WOMODE == BITOS!IBITO2!BITOO ; WRITE INTERNAL LINK MODE REGISTER 


SEQ 28 


D3 
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000016 
000017 


000020 
000021 


000022 
000023 


TDRB +O 


TORB +2 


TORB +4 


ROSTA 


*= BITOS!IBITO2]:BITO1 3 READ PORT STATUS 


CLRSTA == BITOSIBITO2]!BITOL!BITOO 


s READ AND CLEAR PORT STATUS 


OMPMEM == BITO4 s DUMP INTERNAL MEMORY 


LOMEM 


ROSYS 
WwOSYS 


s= BITO4!BITOO s LOAD INTERNAL MEMORY 


«= BITOS!BITOL s READ SYSTEM ID PARAMETERS 
== BITO4!BITOL!BITOO 5; WRITE SYSTEM ID PARAMETERS 


ETHERNET PACKET OFFSETS 


+6 


14, s OFFSET (SIZE) TO END OF MHEADER IN BYTES 


te) s DESTINATION ADDRESS 


s SOURCE 


6 ADORESS 
le. s PROTOCOL TYPE FIELD 


le. 


14 


! (6 BYTES) ! 
! ! 
!  PROTOCALL TYPE! 
Byars MS ' 
are MORE DATA : 


XMIT RING DESCRIPTOR DEFINITIONS 


NOTHING NEEDED 


NOTHING NEEDED 


SEQ 29 


ES 


CZVACBO DEUNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 8-4 
GLOBAL EQUATES SECTION 


004000 
010000 
020000 


020000 


002756 
002756 
000006 


ENP ss BITOS s END OF PACKET FLAG 
STP ss BITOS 3 STOP OF PACKET FLAG 
DEF as BIT10 : DEFFERRING PACKET FLAG 
ONE ae BITi1 s XMIT SUCCESSFUL AFTER ONE RETRY 
MORE se BIT12 s XMIT SUCCESSFUL AFTER MORE THAN 
3 ONE RETRY 
ERRS se BIT14 3 L&°°R SUMMARY BIT 
OWN ss BIT1S s OWNERSHIP BIT (#1 UNA, *=0 HOST) 
; TORB+6 
RTRY ae BIT10 3; RETRY ERROR BIT 
LCAR ne BITi1 3 LOST CARRIER ERROR BIT 
LCOL led BIT12 3 LATE COLLISION ERROR BIT 
UBTO ss BIT14 3; UNIBUS TIMEOUT ERROR BIT 
BUFL Be BIT15 3; BUFFER LENGTH ERROR BIT 
3¢ 
3 RCVR RING DESCRIPTOR DEF INTIONS 
3 — 
: RORB+O 
3 
3 NOTHING NEEDED 
: RORB-+2 
3 
: NOTHING NEEDED 
3: RORB+4 


3 <- INDICATES SAME AS DEFINED FOR XMIT RING 


, ENP ss BITOS 3; END OF PACKET FLAG 

3STP we BITO9 3; STOP OF PACKET FLAG 

CRC ss BIT11 : CRC ERROR IN RECEIVED PACKET 

OFLO ss BITi2 3 MESSAGE OVERFLOW 

FRAM as BIT13 3; FRAMING ERROR 

sERRS == BIT14 s ERROR SUMMARY BIT 

3s OWN as BIT1S 3; OWNERSHIP BIT (*1 UNA, =O HOST) 
: RORB+6 

NCHN es BIT13 : SET TO INDICATE UNA IN NO 

; BUFFER CHAIN ON RCVR MODE 

;UBTO ss BIT14 3 UNIBUS TIMEOUT ERROR BIT 

;BUFL sss BIT15 ; BUFFER LENGTH ERROR BIT 
XPKLEN == 1518. 3 TRANSMIT PACKET LENGTH 
RPKLEN == 1518. 3; RECIEVE PACKET LENGHT 


SEQ 30 


NO.NTR =* 6 + NUMBER OF ENTRIES IN DESCRIPTOR RINGS 


CZVACBO 
GLOBAL E 


rs 
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000050 
000132 
000004 


TBLLEN 


STBLEN 
FRDADR as 4 


= 40, 
ss 90. 


SYSTEM ID REPLY 
SIRCPT 


; COUNTER OFFSETS 


~~ 


ANNNONOANAONNNANNANON 


2322? 23aR 
255028238 


& 


-PXMD 


MESSAGE OFFSETS 


16 


SEQ 31 


NODE TABLE LENGTH ete | STBLEN IF 
THIS IS CHANGED, OR ELSE!) 
SUMMARY TABLE LENGTH (= 2.25 Xx TBLLEN) 
OFFSET FOR MESSAGE HEADERS 


G3 
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GEOR RE RUNES SEE T EON ” 
1568 000070 C.XABT == 70 
14 000074 C.COLL == 74 
1570 
1571 .SBTTL GLOBAL DATA SECTION 
1572 
1573 s+ 
1574 ; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
sats IN MORE THAN ONE TEST 
1576 
pil } COMMAND LINE BUFFER, DATA LOCATIONS AND MESSAGES FOR ACTION ROUTINES 
1 
1579 002200 CMOBUF: .BLKB 72. s;BUFFER FOR OPERATOR COMMANDS 
1580 002310 000000 KEYWD1: .WORD 0 : 
1581 002312 000000 KEYWD2: .WORD 0 
1582 002314 000000 ADRBUF: .WORD 0 s;BUFFER FOR NODE ADDRESS 
1583 002316 000000 -wORD O 
1584 002320 000000 -WORD 0 
1585 002322 STRBUF: .BLKB 18. s;BUFFER FOR ALPHANUM. ADDRESS STRING 
1586 002344 STRBU1L: .BLKB 18. 
1587 002366 000000 CBOADR: .WORD 0 sPOINTER FOR BEGINING OF padoRess STRING 
1588 002370 000000 PSTYPE: .WORD 0 3LOC. TO HOLD MESSAGE TYP 
1589 002372 000000 PS$SIZE: .WORD 0 3LOC. TO HOLD MESSAGE SIZE 
1590 002374 000000 PSCPYS: .WORD 0 sLOC. TO HOLD NO. OF MESSAGE COPIES 
1591 002376 000000 PSPASS: .WORD 0 ;LOC. TO HOLD NO. OF PASSES 
1592 002400 000000 NOOTY: .WORD 0 sLOC. TO HOLD NODE TYPE FOR NODE TABLE SETUP 
1593 002402 000000 SLOT:: .WORD 0 sUSED BY NODE TABLE SUBROUTINES 
1594 002404 NOOTBL: .BLKW TBLLEN ; SPACE FOR NODE TABLE 
1595 002524 177777 -WORD 177777 sFILL LAST FOUR BYTES OF TABLE WITH ONES 
1596 002526 177777 -WORD 177777 
1597 002530 SAVTBL: .BLKW TBLLEN sSPACE FOR SAVE TABLE 
1598 002650 177777 ILLADR: .WORD 177777 sILLEGAL ADDRESS FOR COMPARISON 
1599 002652 177777 -WORD 177777 s (MUST NOT BE PHYSICALLY SEPARATED FROM 
1600 002654 177777 «WORD 177777 : ENO OF SAVTBL) 
1601 002656 STATBL: .BLKW STBLEN sSPACE FOR SUMMARY TABLE 
1602 003142 177777 -WORD 177777 
oo. sCOMMAND LINE TRAVERSE LOCATIONS (USED BY “PSTRV”) 
1606 003144 000000 PSBUFA: .WORD 0 sLOC. TO HOLD ADOR. OF CMD LINE SUFFER 
1607 003146 000000 PSTREE: .WORD 0 sLOC. TO HOLD ADOR. OF PARSING TREE 
1608 003150 000000 PSACT: .WORD 0O sLOC. TO HOLD ADOR. OF ACTION ROUTINE 
1609 003152 000000 PSCNT: .WORD 0 ;LOC. TO BE A COUNTER LOCATION 
1610 003154 000000 PSNUM: .WORD 0 sLOC. TO HOLD NUMERIC VALUE FROM PARSE 
1611 003156 000000 PS$RADX: .WORD 0 ;LO0C. TO HOLD RADTXCLO) & «/-C(H1l BYTE) 
1612 003160 000 PSNNUF: .BYTE 0 sRETURN =O IF ENOUGH OF COMMAND FOUND 
1613 003161 000 P$GOB0: .BYTE 0 sRETURN CODE O IF NO ERROR FOUND 
1614 003162 000 PSAERR: .BYTE 0O sRETURN O IF 12 DIGIT ADORESS ENTERED 
1615 003163 000 PS$MERR: .BYTE 0 sRETURN -1 IF ERROR IN OPERATOR SELECTED 
1616 sMESSAGE INPUT OCCURED, 0 FOR GOOD INPUT 
1617 003164 056060 HLPTAB: .WORD HELP1 
1618 003166 056161 WORD HELP2 
1619 003170 056254 WORD HELP3 
1620 003172 056325 WORD HELP4 
1621 003174 056376 WORD HELPS 
1622 003176 056476 WORD HELP6 
1623 003200 056611 0 HELP7 
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1625 003204 057012 -WORD HELPS 

1626 003206 057101 -WORD HELP10 

1627 003210 057172 -WORD HELP11 

1628 003212 057270 -WORD HELP12 

1629 003214 057375 -WORD  HELP13 

1630 003216 057474 -WORD HELP14 

1631 003220 057573 -WORD  HELP15 

1632 003222 057676 -WORD HELP16 

1633 003224 057765 -WORD  HELP17 

1634 003226 060070 -WORD HELP18 

1635 003230 060140 -WORD HELP19 

1636 003232 0602435 -WORD HELP20 

1637 003234 060321 -WORD HELP21 

1638 003236 060404 ; -WORD HELP22 

1639 003240 060505 -WORD HELP23 

1640 003242 060605 -WORD  HELP24 

1641 003244 060735 -WORD  HELP2S 

1642 003246 061021 -WORD HELP26 

1643 003250 061125 -WORD  HELP27 

1644 003252 061227 -WORD HELP28 

1645 003254 061346 -WORD HELP29 

1646 061416 -WORD HELPSO 

1647 003260 000000 HLPEND: .WORD O 

1648 003262 062372 MSGTAB: .WORD MSGTYO sMESSAGE TYPE ASCII ADORESS TABLE 

1649 003264 062400 -WORD MSGTY1 

1650 003266 062405 -WORD MSGTY2 

1651 003270 062413 -WORD  MSGTY3 

1652 003272 062420 -WORD  MSGTY4 

1653 003274 062425 -WORD MSGTYS 

— 003276 062433 -WORD MSGTY6 

a ; THIS SECTION DEFINES THE DATA PATTERNS USED BY THE EXERCISER 

1658 003300 MSGCNT: : 

1659 003300 000130 MSGOC: .WORD EMSGO-MSGOO ; THE NUMBER OF BYTES IN EACH MESSAGE 

1660 003302 000001 MSGiC: .WORD EMSG1-MSGO1 

1661 003304 000001 MSG2C: EMSGe2 -MSGO2 

1662 003306 000001 MSG3C: .WORD EMSG3-MSGO3 

1663 003310 000001 MSG4C: .WORD EMSG4-MSGO4 

1664 003312 000100 MSGSC: .WORD EMSGS-MSGOS 

934 003314 000000 MSG6C: .WORD 

1667 003316 MSGAD: : 

1668 003316 003334 -WORD MSGOO 

1669 003320 003464 -WORD MSGO1 

1670 003322 003465 -WORD MSGO2 

1671 003324 003466 -WORD  MSGO3 

1672 003326 003467 -WORD  MSGO4 

1673 003330 003470 -WORD  MSGOS 

tt 003332 003570 WORD OPSLBF 

1676 003334 04% 041 042 MSGOO:: .ASCII \ !"@$8&'( )e+, -/0123456789: ;< => 2@ABCDEF GHI JKLMNOPQRS TUVWXYZ\ 

003337 045 044 045 
003342 046 047 050 
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1677 


063 


157427 


165044 
016147 


031011 
105221 


ASCII 
EMSGO: : 
MSGO1:: .BYTE 
EMSG1:: 


MSGO2:: .BYTE 


EMSGS: : . 
OPSLBF: .BLKB 


CFLAG: .WORD 


3;CLOCK TABLES, 


CLKCSR: .WORD 


CLKHZ: :WORD 
CLKEN: .WORD 


\(] t -ABCOEF GHI JKLMNOPQRSTUVWXYZ\ 3; ALPHANUMERIC 


377 s MESSAGE OF ALL ONES 

0 s MESSAGE OF ALL ZEROS 

252 3s MESSAGE OF ALTERNATING ONES 
125 s MESSAGE OF ALTERNATING ZEROS 


3; CCITT 511 BIT TEST PATTERN 
177603, 157427,031011,047321, 163715, 105221 


143325, 142304 ,040041 , 104116,052606, 172334 

105025, 123754, 111337,111523,030030, 145064 

137642, 143531,063617,135075,066730,026575 

052012 ,053627 ,070071, 151172, 165044 ,031605 

166632 ,016147 

66. sBUFFER FOR OPERATOR SELECTED MESSAGE TYPE 


.¢) sACTION ROUTINE CMD ARGUMENT FLAG 


EVENT LOG AND POINTERS 

0 s CLOCK CSR ADDRESS 

0 s CLOCK INTERRUPT LEVEL 

oO s CLOCK INTERRUPT VECTOR 

60. s CLOCK'S FREQUENCY IN HERTZ 

ie) 3 CLOCK'S CSR VALUE TO INTRPT. ENABLE IT 


SEQ 34 
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003706 
003710 
003712 


003714 
003716 
003720 


003772 
003774 


TIMMIN: .WORD 
TIMSEC: .WORD 
TIMTCK: .WORD 


TIMER1: .WORD 


TIMER2: .WORD 

TIMERS: .WORD 
.EVEN 

3 TABLE 

F 

RRNGTB: : 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 

3 TABLE 

3 

XRNGTB: : 


: 


2 
css GHG 


ooo ooo 


OF START ADDRESS 


JS 


SEQ 35 


PLACE TO KEEP TIME-SINCE-START 
PLACE TO KEEP NO. OF TICKS/SEC. 
EVENT TIMER #1 (TICKS) 


EVENT TIMER #2 (TICKS) 
EVENT TIMER #3 (SECONDS) 


OF RECIEVE RING BUFFERS 


POINTERS TO DESCRIPTOR RING ENTRIES 


FIRST ENTRY IN TRANSMIT RING 
FIRST ENTRY IN RECIEVE RING 
CURRENT ENTRY IN TRANSMIT RING 
CURRENT ENTRY IN RECIEVE RING 
NEXT ENTRY IN TRANSMIT RING 
NEXT ENTRY IN RECIEVE RING 
LAST ENTRY IN TRANSMIT RING 
LAST ENTRY IN RECEIVE RING 
VALUE = NO.NTR X 10. 


: SEGMENT LENGTH 
3; SEGMENT BUFFER ADDRESS 
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1765 
1769 
1770 
1771 
1772 
1773 
1774 


RRING:: 


RPKLEN 
xRGOOS 
0 
0 
0 


RPKLEN 
XRGOO4 


0 
.¢) 
0 


RPKLEN 
wr 


to) 
0 


RPKLEN 
xRGOO6 


ooo 


RPKLEN 
RRGOO1 
100000 
te) 
0 


RPKLEN 


KS 


OWNERSHIP AND STATUS BITS 
STATUS 
SEQUENCE NUMBER 


SEGMENT LENGTH 

SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 

SEQUENCE NUMBER 


SEGMENT LENGTH 

SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS j 
SEQUENCE NUMBER 


SEGMENT LENGTH 

SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 

SEQUENCE NUMBER 


SEGMENT LENGTH 

SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 

SEQUENCE NUMBER 


SEGMENT LENGTH 

SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 

SEQUENCE NUMBER 


SEGMENT LENGTH 

SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 

SEQUENCE NUMBER 


SEGMENT LENGTH 

SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 


SEQUENCE NUMBER 


SEGMENT LENGTH 

SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 


SEQ 36 
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004122 000000 .WORD 0 ; SEQUENCE NUMBER 
004124 002756 .WORD RPKLEN 3 SEGMENT LENGTH 
004126 036720 .WORD RRGOOS ; SEGMENT BUFFER ADDRESS 
004130 100000 .WORD 100000 : OWNERSHIP AND STATUS BITS 
004132 000000 .WORD 0 3 STATUS 
004134 000000 .WORD 0 s SEQUENCE NUMBER 
004136 002756 .WORD RPKLEN ; SEGMENT LENGTH 
004140 041676 .WORD RRGOOS ; SEGMENT BUFFER ADDRESS 
004142 100000 .WORD 100000 ; OWNERSHIP AND STATUS BITS 
004144 000000 .WORD 0 ; STATUS 
004146 000000 WORD 0 3 SEQUENCE NUMBER 
004150 002756 WORD RPKLEN 3 SEGMENT LENGTH » 
004152 044654 .WORD RRGOO6 3 SEGMENT BUFFER ADDRESS 
004154 100000 .WORD 100000 ; OWNERSHIP AND STATUS BITS | 
004156 000000 .WORD 0 3 STATUS 
004160 000000 WORD 0 ; SEQUENCE NUMBER 
1775 
1779 
1780 004162 XRGOO1::.BLKB  XPKLEN ; XMIT RING BUFFERS 
1781 007140 XRGOO2::.BLKB XPKLEN 
1782 012116 XRGOO3::.BLKB XPKLEN 
1783 015074 XRGOO4::.BLKB XPKLEN 
1784 020052 XRGOOS::.BLKB XPKLEN 
1785 023030 XRGOO6::.BLKB  XPKLEN 
1787 026006 RRGOO1::.BLKB RPKLEN ; RECIEVE RING BUFFERS 
1788 030764 RRGOO2::.BLKB RPKLEN 
1789 033742 RRGOO3::.BLKB RPKLEN 
1790 036720 RRGOO4::.BLKB RPKLEN 
1791 041676 RRGOOS::.BLKB #RPKLEN 
1792 044654 RRGOO6::.BLKB RPKLEN 
1794 
1795 
tee f PAAASAAASASASAAALEEAESAASEEEAEAEEAEEOEEDEEEEEEEEEEOEOOOOOEEOO4OO450404000400008 
> 
1798 : ; INFORMATION ABOUT THE CURRENT UNIT AS OBTAINED FROM THE HARDWARE P-TABLE 
1800 5 0080000000000000000000060000000000000000000000000000000000000000000000000000000000000000008 
2224646466 
1801 
1802 sPCSRS OF CURRENT SLOT 
1803 047632 000000 PCSRO:: .WORD ; ADDRESS OF PCSRO (PORT COMMAND FIELD 
1804 047634 000000 PCSR1:: .WORD ; 1 (STATE & SELF TEST FIELDS 
1805 047636 000000 PCSR2:: .WORD ; 2 (PCB ADDRESS LO 15 BITS 
1806 047640 000000 PCSR3:: .WORD ; 3 (PCB ADDRESS HI 2 BITS 
1808 047642 000000 PCSROC::.WORD 0 sPCSRO CONTENTS 
1809 047644 000000 PCSR1C::.WORD 0 sPCSR1 CONTENTS 
1810 047646 000000 PCSR2C::.WORD 0 sPCSR2 CONTENTS 
1811 047650 000000 PCSR3C::.WORD 0 sPCSR3 CONTENTS 
1813 
1814 047652 000000 UNACSR::.WORD 0 ;CSR 
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047654 
047656 


047660 
047662 


047664 


047746 


UNAVEC:: 
UNAPRI: : 


FRESIZ:: 
FREMEM: : 


UNIT: : 


-WORD 0 s VECTOR 

-WORD 0 sPRIORITY 

-WORD O sPOINTER TO WORD CONTAINING SIZE OF FREE MEMORY 
-WORD O sPOINTER TO FREE MEMORY SPACE 

-WORD O sCURRENT UNIT NUMBER BEING TESTED 


PORT CONTROL BLOCK FUNCTION STRUCTURES 


sPORT CONTROL BLOCK 

te) ; PORT FUNCTION 

. ie) ; PORT FUNCTION DEPENDENT PARAMETERS 

-WORD O ; PORT FUNCTION DEPENDENT PARAMETERS 
0 ; PORT FUNCTION DEPENDENT PARAMETERS 


FUNCTION TABLE 


WORD $PNOP ; NO OP 
-WORDB O ; FILL IN THE HOLE 
.WORD $RDDE ; READ DEFAULT PHYSICAL ADDRESS 
-WORD O ; FILL IN ANOTHER HOLE 
. WORD $ROPH ; READ PHYSICAL ADORESS 
WORD $WOPH 3; WRITE PHYSICAL ADDRESS 
. WORD $ROMC ; READ MULTICAST ADORESS LIST 
$wOMC 3; WRITE MULTICAST ADDRESS LIST 
WORD $RORN ; READ DESCRIPTOR RINGS 
WORD $WORN ; WRITE DESCRIPTOR RINGS 
. WORD $ROCN ; READ COUNTERS 
. WORD $CLRC s READ AND CLEAR COUNTERS 
WORD $RDMO ; READ MODE 
. WORD $WOMO ; WRITE MODE 
. WORD $ROST 3 READ STATUS 
WORD $CLRS ; READ ANDO CLEAR STATUS 
. WORD $OMEM ; DUMP INTERNAL MEMORY 
WORD $LMEM ; LOAD INTERNAL MEMORY 
WORD $RDSY ; READ SYS ID PARAMETERS 
WORD $wTsy ; WRITE SYS ID PARAMETERS 
PNOP == 0 ; PORT NO-OPERATION 
$PNOP: : .WORD O ; NO-OP 
RDODEFA == BITOL ; READ DEFAULT PHYSICAL ADDRESS 
$RDDE:: -WORD 2 ; PCBB+O FUNCTION READ DEFAULT 
DEPADR: : -WORD O ; PCBB+2 PHYSICAL ADDRESS 
-WORD O ; PCBB+4 
-WORD O ; PCBB+6 


ROPHYA == BITO2 ; READ PHYSICAL ADDRESS 


SEQ 38 
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1872 
1873 
1874 


047760 
047762 
047764 
047766 


047770 
047772 
047774 
047776 


050100 
050102 
050104 
050106 


050110 


000000 


000005 


000006 
050010 


NS 
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eg 
.EVEN 
$ROPH: : .WORD 4 
PHYADR: : .» WORD 0 
-WORDB O 
-WORD O 
3+ 
3 WOPHYA == BITO2!BITOO 
+ Ted 
.EVEN 
$WDPH: : . WORD 5 
-WORD O 
-WORD O 
-WORD O 
3+ 
: ROMULA == BITO2!BITO1 
= 
.EVEN 
$ROMC: : -WORD 6 
-WORD UCB6 
-WORD O 
-WORD O 
UCBE: : BLKW le. 
3° 
8 WOMULA == BITO2!BITOL!BITOO 
.EVEN 
$WOMC : . WORD 7 
-WORD UCB7 
-WORD 400 
-WORD O 
UCB7:: . WORD 253 
. WORD 1000 
-WORD O 
.BLKW 9, 
3¢ 
3 RDRNGS == BITO3 
g°¢ 
.EVEN 
$RORN: : WORD 10 
.WORD UCB10 
-WORD O 
-WORDB O 
.EVEN 
UCB10O:: .WORD XRING 


SEQ 39 


PCBB+O READ CURRENT CACTIVE) 
PCBB+2 PHYSICAL ADDRESS 
PCBB+4 
PCBB+6 


WRITE PHYSICAL ADDRESS 


PCBB+O WRITE PHYSICAL ADDRESS 
PCBB+2 
PCBB +4 
PCBB +6 


READ MULTICAST ADDRESS LIST 


FUNCTION CODE 
UCBB ADDRESS 
PCBB+4 
PCBB+6 


ENOUGH ROOM FOR 4 ADDRESSES 


WRITE MULTICAST ADDRESS LIST 


FUNCTION CODE 

UCBB ADDRESS 
LENGTH OF LIST = 1 
PCBB+6 


MULTICAST ADDRESS FOR LOOPBACK 
ROOM FOR THREE MORE ADDRESSES 


READ BOTH THE RCVR AND XMIT RINGS 


FUNCTION CODE 
UCBB ADDRESS 
NULL 


NULL 


UCBB 
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1929 050112 002000 -WORD 2000 
1930 050114 000000 . 

1931 050116 004066 . 


1932 050120 002000 
1933 050122 000000 


3358 
Zo 
z 


UCBB +12 


é 
1937 : WORNGS =* BITOS!BITOO 3 WRITE BOTH THE RCVR AND XMIT RINGS 
a 


1942 050124 000011 SWORN: : . s FUNCTION CODE 
s UCBB ADDRESS 
3 NULL 

s NULL 

1947 .EVEN 


1949 050134 UCB11:: 

1950 050134 003772 .WORD XRING 3 TRANSMIT RING BASE ADORESS 

1951 050136 000 BYTE O 3 HI BITS OF TRANSMIT RING BASE ADDRESS 

1952 050137 00s BYTE 5S 3 FIVE WOROS PER RING ENTRY (1 FOR PORT ORIVER 


1953 050140 000006 -WORD NO.NTR ; EIGHT TRANSMIT DESCRIPTORS IN THE RING 

1955 050142 004066 -WORD RRING ; RECEIVE RING BASE ADDRESS 

1956 050144 000 BYTE O H HI BITS OF RECEIVE RING BASE ADDRESS 

1957 050145 005 BYTE 5 H FIVE WORDS PER RING ENTRY (1 FOR PORT DRIVER 


1958 050146 000006 -WCRD NO.NTR ; EIGHT RECEIVE DESCRIPTORS IN THE RING 


é 


ROCNTS == BITOS!BITOL s READ COUNTERS 


-EVEN 
1967 050150 000012 $ROCN: : -WORD 12 s FUNCTION 
1968 050152 050160 -WORD UCB12 ; UCBB ADDRESS 
1970 3 DEFAULT COUNT OF COUNTER LIST 
1971 F 40 (COCTAL) 
1972 050154 000000 -WORD O s NULL 


1974 050156 000100 -WORD 100 s (€@ OF WORDS IN LIST = UPPER BYTE) 
1975 s MAX NUMBER VALUE = 32 (DECIMAL) = 


1977 EVEN 


UCBB +10 
UCBB+12 


3 

ft 

: 

z 

: 

oooocoo 

. 
rf 
o 
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050260 
050262 


050264 
050266 


050270 
050272 


050274 
050276 


000014 
000000 


SUSSSSSSSSSSSSSS5553030583 


CLRCNTS == BITOS!BITO1I!IBITOO 


SCLRC:: . WORD 13 
. WORD 1 
-WORD O 
. WORD 40 
3( FOR vUCB13:: 


$ROMO 


ROMODE == BITOS!BITO2 


s READ INTERNAL LINK MODE REGISTER 


READ AND CLEAR COUNTERS 


FUNCTION 
UCBB ADDRESS 


DEFAULT COUNT OF COUNTER LIST 


SEQ 41 


NULL 
(@ OF WORDS IN LIST = UPPER BYTE) 
MAX NUMBER VALUE = 32 (DECIMAL) = 


SEE UCB 12 ABOVE) 


40 COCTAL) 


FUNCTION CODE 


A 16 BIT COPY OF THE 
BITS TO READ THE UNA INTERNAL 


NULL 
NULL 


MODE REGISTER 


D4 


EEHARPODREWNGE PF BNERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 8-16 SEQ 42 

2043 ag 

en ; WOMODE == BITOS!IBITO2!IBITOO 3; WRITE INTERNAL LINK MODE REGISTER 
e* 

2046 

2047 .EVEN 

2048 050300 000015 $WOMO: : WORD 15 s FUNCTION CODE 

2049 050302 000000 -WORD O 1 A 16 BIT COPY OF THE 

2050 s BITS TO WRITE THE UNA INTERNAL 

2051 : MODE REGISTER 

2052 050304 000000 -WORD O s NULL 

2053 050306 000000 -WORD O 3 NULL 

2054 

2055 

2056 ze 

2057 3 RDOSTA == BITUS!IBITUS!BITOL ; READ PORT STATUS 

2058 8° 

2059 

2060 .EVEN 

2061 050310 000016 $RDST:: . WORD 16 3s FUNCTION CODE 

2062 050312 000000 STATUS:: -WORD O 3 A LIST OF ERRORS AND STATUS 

2063 050314 000000 -WORD O 3 LOWER BYTE = ® OF MULTICAST ADRS 

2064 3 MAXIMUM SUPPORTED BY UNA 

2065 3: UPPER BYTE = @ OF MULTICAST ADRS 

2066 3 CURRENTLY SUPPORTED BY UNA 

2067 050316 000000 -WORD O : WORD = MAXIMUM @ OF WORDS IN 

2068 3 UCB FOR COUNTERS 

2069 3 AS CURRENTLY PERCEIVED 

2070 3 BY THE UNA 

2071 

2072 3° 

2073 3 CLRSTA == BITOS!BITO]:BITOL:BITO 

ata 3° : READ ANDO CLEAR WRITE PORT STATUS 

2076 .EVEN 

2077 050320 000017 $CLRS:: . WORD 17 s FUNCTION CODE 

2078 050322 000000 -WORD O : A LIST OF ERRORS AND STATUS 

2079 050324 000000 -WORD O 3; LOWER BYTE = @ OF MULTICAST ADRS 

2080 F MAXIMUM SUPPORTED BY UNA 

2081 ; UPPER BYTE = @ OF MUALTICAST ADRS 

2082 3 CURRENTLY SUPPORTED BY UNA 

2083 050326 000000 -WORD O s WORD = MAXIMUM @ OF WORDS IN 

2084 F uCB FOR COUNTERS 

2085 3 AS CURRENTLY PERCEIVED 

2086 ; BY THE UNA 

2087 

2088 se 

2089 3 OMPMEM == BITO4 : DUMP INTERNAL MEMORY 

2090 :- 

2091 

2092 EVEN 

2093 050330 000020 $DMEM: : «WORD 20 3s FUNCTION CODE 

2094 050332 050340 -WORD vuUCB20 : UCBB ADDRESS 

2095 050334 000000 .WORD O 

be | 050336 000000 -WORD O 

2098 050340 UCB20:: 


2099 050340 000000 uCB21:: -WORD O s FUNCTION LENGTH (NO OF WORDS TO XFER) 


E4 
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2100 050342 000000 -WORD O : HOBB - HOST MEMORY DATA BLOCK ADDRESS 

2101 050344 000000 -WORDB O s MUST BE ZERO 

te 050346 000000 «WORD O : IOBB - INTERNAL DATA BLOCK BASE ADDRESS 

2104 3¢ 

tees 3 LOMEM == BITO4!BITOO 3 LOAD UNA INTERNAL MEMORY 
a 

2107 

2108 .EVEN 

2109 050350 000021 $LMEM: : .~WORD 21 s FUNCTION CODE 

2110 050352 050340 WORD ucBel : UCBB ADDRESS 

2111 050354 000000 . WORD 0 

2112 050356 000000 WORD O 

2113 

2114 3° 

2115 3 ROSYS == BITO4!BITOL 3s READ SYSTEM ID 

2116 8° 

2117 

2:18 .EVEN 

2119 050360 000022 $RDSY:: -WORD 22 s FUNCTION CODE 

2120 050362 050400 . WORD uCB22 3; UCBB ADDRESS 

2121 050364 000000 -WORD O 

etse 050366 000033 . WORD BT. 3; LENGTH OF ID MESSAGE 
3¢ 

2124 : WTSYS == BITO4!BITOL!BITOO ; WRITE SYSTEM ID 

2125 3- 

2126 

2127 .EVEN 

2128 050370 000023 $wiSY:: . WORD 23 3s FUNCTION CODE 

2129 050372 050400 » WORD uCB23 : UCBB ADDRESS 

2130 050374 000000 » WORD 0 

ota 050376 000033 -WORD 27. ; LENGTH OF ID MESSAGE 

2133 050400 uUCB2e: 

2134 050400 000000 UCB23: -WORDB O :U08B +0 

2135 050402 000000 - WORD 0 :U0BB +2 

2136 050404 000000 . WORD 0 3U0BB +4 

2137 050406 000000 -WORD O 3: U0BB +6 

2138 050410 000000 . WORD t?) 3U08B +10 

2139 050412 000000 . WORD i?) :U08B +12 

2140 050414 000000 . WORD 0 3U08B +14 

2141 050416 000000 -WORD O :U08B +16 

2142 050420 000000 -WORDB O :U0BB +20 

2143 050422 000000 -WORD O 3U0B8B +22 

2144 050424 000000 » WORD 0 :UD0BB +24 

2145 050426 000000 -WORD O 3UDBB +26 

2146 050430 000000 WORD i?) :U0BB +30 

2147 050432 000000 -WORD O :U0BB +32 

2148 050434 000000 » WORD 0 3 U0BB 34 

2149 050436 000000 . WORD i?) 3 U0BB + 36 

2150 050440 000000 -WORD O :U0BB +40 

2151 050442 000000 » WORD c¢] :U0BB +42 

2152 050444 000000 » WORD 0 3U0BB +44 

2153 050446 000000 WORD t¢) 3: UOBB +46 

2154 050450 000000 » WORD ie) ;U0BB +50 

2155 050452 000000 . WORD 0 :U0BB +52 

2156 050454 000000 -WORD O :U0BB +54 


F4 
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GLOBAL DATA SECTION 
2157 050456 000000 WORD 0 1 U0BB +56 
2158 050460 000000 WORD 0 : UDBB +60 
2159 050462 000000 . WORD 0 :U0BB +62 
Sat 050464 000000 » WORD 0 3s U0BB +64 
2162 050466 000000 UOBB: : WORD 0 sUNIBUS DATA BLOCK BASE 
2163 050470 000000 WORD 0 302 
2164 050472 000000 . WORD 0 304 
2165 050474 000000 WORD O 3+6 
2166 
2167 3 
2168 3 SUMMARY DATA COUNTERS 
2169 3 
2170 
2171 050476 000000 S.REC:: .WORD 0 s MESSAGES RECEIVED 
2172 050500 000000 S.NREC:: .WORD 0 s MESSAGES NOT RECEIVED 
2173 050502 000000 S.LEN:: .WORD 0 3 LENGTH ERRORS 
2174 050504 000000 s.c . WORD i?) : COMPARE ERRORS 
2175 050506 000000 S.BYTE::.WORD 0 s BYTES COMPARED 
pes 050510 000000 S.XFER:: .WORD 0 3; BYTES TRANSFERED 
2178 Fy 
mo 3 DEUNA ORIVER AND ASSOCIATED SUBROUTINES DATA 
3 
2181 
2182 050512 000000 FATFLG:: .WORD 0 : FATAL ERROR FLAG 
2183 050514 000000 PCEFLG:: .WORD 0 : PORT COMMAND ERROR FLAG 
2184 050516 000000 NIRCNT::.WORD O 3: UNA RECIEVE MESSAGE COUNTER 
2185 050520 000000 XFLAG:: .WORD 0 s FRAME TRANSMITTED FLAG 
2186 050522 000000 ONIFLG::.WORD 0O : DONE INTERRUPT FLAG 
2187 050524 000000 RBFCNT::.WORD O ; RECIEVE BUFFERS LOST COUNTER 
2188 000000 BCOUNT::.WORD O 3 UNEXPLAINED INTERRUPTS COUNTER 
2189 050530 000000 ERRFLG::.WORD 0 : ERROR FLAG 
2190 050532 000000 TIMOUT: : .WORD 0 s TIME OUT COUNTER 
2191 050534 000000 RETRYS:: .WORD 0 ; COUNTER FOR FRAMES FAILING DUE TO RTRY ERROR 
2192 050536 000000 RCVERR: : .WORD 0 3: COUNTS NO. OF BUFFERS RECEIVED WITH ERRORS 
2193 050540 000000 RCVBUF::.WORD 0 ; COUNTS NO. OF GOOD BUFFERS RECEIVED 
2194 050542 000000 COUNT:: .WORD 0O ; USED IN BLOBUF SUBROUTINE AS COUNTER 
2195 050544 000220 PROTOO: : .WORD 000220 : PROTOCALL TYPE FOR LOOPBACK MESSAGES 
2196 050546 001140 PROTO2: : .WORD 001140 : PROTOCALL TYPE FOR REMOTE CONSOLE 
2197 050550 000000 TEMP:: .WORD 0 3; USED IN XMIT AS TEMPORARY STORAGE 
2198 050552 000000 TEMP1:: .WORD 0 : USED FOR TEMPORARY STORAGE 
2199 050554 000000 TEMP2:: .WORD c) ; USED FOR TEMPORARY STORAGE 
2200 050556 000000 TEMPS3:: .WORD 0 ; USED FOR TEMPORARY STORAGE 
2201 050560 000000 XFER:: .WORD 0 3 STORES ‘BYTES TRANSFERED’ 
2202 050562 000000 CPYCNT:: .WORD 0 s ‘NO. OF COPIES’ COUNTER FOR LOOPING 
2203 050564 000000 PCCALL:: .WORD 0 : STORES PC OF CALLING ROUTINE FOR ERROR REPORTS 
2204 050 000000 BUFLEN: : .WORD f¢) 3: STORES TRANSMIT BUFFER LENGTH 
2205 050570 000000 ::.WORD 0 : STORES LOCATION OF DATA BUFFER TO BE COMPARED 
= 050572 PATCH:: .BLKW 40. : 40 WORDS FOR PROGRAM PATCH 
2208 : 
2209 ; REGUEST ID MESSAGE FORMAT 
2210 5 
2211 
2212 050712 REQID:: 


2213 050712 000003 -WORD 3 s BYTE COUNT (#3 FOR REQUEST ID) 


G4 
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GLOBAL DATA SECT 


2214 
2215 


050714 
050716 


ION 


000005 
051115 


-WORD 5 
-WORD “MR 


é 
; LOOP DIRECT MESSAGE 


EVEN 
LOPDIR:: 
-WORD O 
-WORD 2 
-WORD 0,0,0 
-WORDB 1 
-WORD 0,0,0 


3 
3; TRANSMIT ASSIST MESSAGE 
: 


TASIST:: 


é 
s RECIEVE ASSIST MESSAGE 
; 


RASIST:: © 
-WORD 2 
-WORD O 
-WORD 2 
WORD O 


WORD 


3 
s FULL ASSIST MESSAGE 
i 


FASIST:: 
-WORD O 
-WORD 2 
.» WORD 0,0,0 
-WORD 2 
-WORD 0,0,0 
-WORDB 2 
-WORD 0,0,0 
-WORD 1 
-WORD 0,0,0 


FUNCTION CODE FOR REQUEST ID 
RECIEPT NUMOER 


SKIP COUNT 
FUNCTION = FORWARD DATA 
LOCAL NODE ADDRESS 


LOCAL NODE ADDRESS 


SKIP COUNT 

FUNCTION = FORWARD DATA 
TRANSMIT ASSIST ADDRESS 
FUNCTION = FORWARD DATA 


SKIP COUNT 

FUNCTION = FORWARD DATA 
TRANSMIT ASSIST ADDRESS 
FUNCTION = FORWARD DATA 
LOCAL NODE ADDRESS 
FUNCTION = REPLY 

LOCAL NODE ADDRESS 


SKIP COUNT 

FUNCTION = FORWARD DATA 
TARGET NODE ADDRESS 
FUNCTION = FORWARD DATA 
ASSIST NODE ADDRESS 
FUNCTION = FORWARD DATA 
LOCAL NODE ADDRESS 
FUNCTION = REPLY 

LOCAL NODE ADDRESS 


SEQ 45 


H4 
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051070 


051070 
051074 


051434 


-SBTTL COMMAND LINE ACTION TREE 


sSAMPLE CLI TREE NODE (ALWAYS AT LEAST 1 WORD) 


SEQ 46 


; ! ACTION ! CHAR CODE ! 

3 --<e ee ee ween en nee enw w ween 

; ! MISS DISPLACEMENT ! ONLY IF “MISS” ARGUMENT DEFINED 

3 --see ee ee eee eee eee ene nee 

; ! NEXT MODE DISPLMNT ! ONLY IF “ASCII” ARGUMENT DEFINED 

$ eee eee ee eer err er ee ee ee 

; ! ASCIZ MATCH STRING ! ONLY IF “ASCII” ARGUMENT DEFINED 

i! (EVEN) ! 

3 -s-ee ee ee eee een ewe wwe eee 

CLITRE: 

;FIRST KEYWORD 
CLI CLISPA,O,N10$ sSKIP ANY LEADING SPACES 

N10$: CLI <' 22 .HELP,NI2S 31S THE FIRST NON-SP CHAR. A “2” 
CLI CLIEXI,O ;_ IF YES DO “WLP” AND EXIT 

Ni2s: CLI CLISTR,HELP,N14$,<' HELP! > ;ELSE IS FIRST WORD A “HELP” 
CLI CLIEXI,O te Te YES 00 "HLP” AND EXIT 

Ni4$: CLI CLISTR.NOTNUF ,N16$,<‘ NODE’ > sELSE IS FIRST WORD A “NODE “ 
CLI CLIBR,O,NBOS ;_ IF YES, BR NBO 

N16$: CLI CLISTR,BUILD,N18$,<' BUILD’ > ‘ELSE IS FIRST WORD A “BUILD” 
CLI CLIEXI,O 1, Te YES_00 “BUILD” AND EXIT 

Niss: CLI CLISTR,NOTNUF ,N20$,<' RUN’ > ;ELSE IS FIRST WORD A “RUN” 
CLI CLIBR,O,N180$ IF YES, BR_N180$ 

N20$: CLI <'S>,NOTNUF ,N25$ ;ELSE IS FIRST CHAR. A "S” 
CLI CLISTR,O, N228, <' HOW! > eu Tr YES Is REST OF WORD “HOW” 
CLI CLIBR.O,N1OO : _ IF YES,BR N100$ 

N22: CLI CLISTR, SUPT N23$,<’UMMARY’> ; ELSE IS REST OF WORD “UMMARY™ 
CLI CLIEXI,O ; _ IF YES, DO “SUMM” AND EXIT 

N23$: CLI CLISTR.CSAVE .N24$,<’ AVE’ > ; ELSE IS REST OF WORD “AVE” 
CLI CLIEXI.O : F YES, 00 “SAVE” AND EXIT 

N24$: CLI CLIERR,O ; ELSE “ILL COMMAND” 
cLI CLIEXI,O 3 EXIT 

N25$: CLI CLISTR.NOTNUF ,N26$,<‘CLEAR’> ELSE IS FIRST WORD A “CLEAR” 
CLI CLIBR,O,N1208 + IF YES, BR N120$ 

N26$: CLI CLISTR,NOTNUF .N28$,<‘IDENTIFY'> ;ELSE IS FIRST WORD “IDENTIFY” 
CLI CLIBR,O,N1408 IF YES, GET ADORS, BR N140$ 

N28$: CLI CLISTR,NOTNUF ,N29$,<'MESSAGE’> ;ELSE IS FIRST WORD “MESSAGE ' 
CLI CLIBR,O,N160$ IF YES, BR N160$ 

N29$: CLI CLISTR,CUNSAV,N30$,<‘UNSAVE’> ELSE IS FIRST WORD “UNSAVE” 
CLI CLIBR,O,N2108 IF YES, BR TO N210$ 

N30$: CLI CLISTR,EXIT,N31$,<' EXIT’ > sELSE IS FIRST WORD “EXIT” 
CLI CLIEXI, IF YES EXIT 

N31$: CLI CLISTR .NOTNUF .NS2$,<'FUNCTION’> sELSE IS FIRST WORD “FUNCTION” 
CLI CLIBR,O,N2008 : IF YES, BR N200$ 

N32$: CLI CLIERR,O sOTHERWISE “ILL CMD", 
CLI CLIEXI,O » EXIT 

;SECOND KEYWORD (ADR/TYPE) FOR NODE COMMAND 

N8O$: CLI CLISPA,O,N81$ ;SKIP ANY LEADING SPACES 
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OMMAND LINE ACTION TREE 


051440 
051444 


051450 
051454 


051456 
051462 
051476 
051502 
051520 
051524 


051722 


051724 


14 


SEQ 47 


sSAVE STRING POINTER LOCATION 
sPARSE THROUGH ADDRESS, CHECK 

sFOR TARGET OR ASSIST, DO NODE 
phe. ERROR BRANCH IF ERROR EXISTS 
‘ 


sSKIP LEADING SPACES 

sIS NEXT WORD “NODES” 

s IF YES, SET FLAG, BR N110$ 

=. IS NEXT WORD “MESSAGE” 
IF YES ,SET “LAG, BR N110$ 

VELSE IS NEXT wORD “COUNTERS” 
s GO TO COUNTERS ROUTINE 

;ELSE “ILL COMMAND” 

sEXIT 


sSKIP LEADING SPACES 
sIS NEXT WORD “NODE” 
s IF YES SKIP SPACES 
LOOK FOR nage bag ELSE “Itt COM” 


3 

3 

2 IF YES, IS WORD “ALL” 

5 IF YES, SET FLAG, * N135$ 

; ELSE IS NEXT CHAR. AN “ 

; IF YES, STORE NODE LOGICAL NAME 
: BR TO CLR. NODE LOGICAL ROUTINE 
: oo, EXTRACT ADORESS 

i 
3 


T 
; IF YES, CLEAR TABLE AND EXIT 
a “ILL COMMAND”. 
3 


sSKIP LEADING SPACES 


;SAVE POINTER TO FIRST CHAR. OF ADDRESS 


;CHECK THAT ADDRESS HAS LEGAL CHAR.S 
sGET ADDRESS 
300 “IOENTIFY”, EXIT 


sSKIP LEADING SPACES 
sIF CHAR, "7", ee: ° ELSE BR N178$ 


s IF YES, FOLLOWED. By ee"? 
IF “ALPHA”, SET FLAG 


N6B1$; cLI CLIBR,CSAVR4 ,N82$ 

N82$: CLI CLIBR,NODE ,N90$ 

N90$;: cLI CLIBIF ,O,N32$ 

N9S$: cLI CLIEXI,0O 

3SECOND KEYWORD FOR SHOW COMMAND 

N100$: CLI CLISPA,O,N101$ 

N101$: CLI CLISTR,CNODE ,.N102$,<‘NODES’ > 
cLI CLIBR,O,N110$ 

N102$: CLI CLISTR,CSHMSG,N104$ ,<' MESSAGE’ > 
cLI CLIBR,O,N110$ 

N104$: CLI CLISTR,CCNTR,N106$,<' COUNTERS’ > 
cLI CLIBR,.O,.N110$ 

N106$: CLI CLIBR,O,N32$ 

N110$: CLI CLIEXI,0O 

:SECOND KEYWORD FOR CLEAR COMMAND 

N120%: CLI CLISPA,O,N121$ 

N121$: CLI CLISTR,O,N130$,<' NODE’ > 
cLI CLISPA,O,N122$ 

Nl22s: CLI <'/> wort sees 
CLI <'A>.0,N123 
cLI CLISTR, CHODAL . N124$,<'LL'> 
CLI CLIBR.O.NL 353% 

N123$: CLI <'N>,0O,N124$% 
cLI CLIDEC,O,N32$ 
cLI CLIBR,CNOLOG .N135$ 

N124%: CLI CLIBR,CEXADR ,.N126$% 

N126%: CLI CLIBR.CNDADR ,N135$ 

N130$: CLI CLISTR,CCLMSG,.N132$ ,<' MESSAGE’ > 
cLI CLIBR,.O,N135$ 3 

N132$: CLI CLISTR, €CLSUM, N134$,<' SUMMARY’ > 
cLI gy »N135$ 

N134%: CLI CLIERR,O 

N135$: CLI CLIEXI.O 

sADDRESS FOR IDENTIFY COMMAND 

N140%: CLI CLISPA,0O,N141$% 

N1418: CLI CLIBR,CSAVR4 .N142$ 

N1428: CLI CLIALN,O,N32$ 
cLI CLIBR,CEXADR,.N143$ 

N143$: CLI CLIEXI, IDENT 

sREMAINING COMMAND LINE FOR MESSAGE COMMAND 

N160$: CLI CLISPA,O,N161$ 

N161$: CLI <'/>,0,N1L78$ 
cLI CLISTR, O. N170$,<' TYPE’ > 
c.I <'2>,0,N328 
cLI CLISTR, ao N162$,<‘ ALPHA’ > 
cLI CLIBR,O,N168$ 

N162$: CLI CLISTR, CONES, N163$,<‘ ONES’ > 
cLI CLIBR,O,N168$ 


SE 
CONTINUE AT N168$ 


CZUACBO 
COMMAND 


J4 
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LINE ACTION TREE 


N163$: CLI gg gh wot N164$,<' ZEROS’ > 
cil CLIBR,O,N168$ 

N164$: CLI CLISTR,CLALT,N165$,<' 1ALT’ > 
CLI CLIBR, 6, N168$ 

Ni65$: CLI CLISTR, sCOALT N166$,<'OALT' > 
cir CLIBR,O 83 

N166$: CLI CLISTR, écertt, N167$,<‘CCITT’ > 
c.r CLIBR, 0, N168$ 


N167$: CLI <' ">, CSAVR4 N32 
cLI CLIBR,COPRSL .N168$ 
N168$: CLI CLIBR,CTYPE ,.N160$ 
N170$: CLI CLISTR, f N175$,<‘SIZE'> 
cLI <'#>,0,N32 


oe CLIDEC, CSIZE ,.N32$ 
cLI CLIBR, é, N160$ 
N1i75$: CLI CLISTR, 0, N32$,<‘COPIES' > 
cLI <'=s>,0, N328 
cLI CLIDEC, CCPYS,N32$ 
cLI CLIBR, 0, N160$ 
N178$: CLI CLIBR,O.N32$ 


sSECOND KEYWORD FOR RUN COMMAND 


N180$: CLI CLISPA,O,N181$ 

N181$: CLI ty! CLUPPR, N182$,<'LOOPPAIR’ > 
cLI CLIBR,.O,N185$ 

N182$: CLI CLISTR,CRNALL .N183$,<‘ ALL’ > 
cLI CLIBR.O,N185$ 

N1863$: CLI CLISTR,COIR.N184$,<‘DIRECT’ > 
cLI CLIBR,.O,N185$ 

N184$: CLI CLISTR,CPATRN,N32$,<' PATTERN’ > 

N185$: CLI CLIBR,COEFLT.N186$ 

N186$: CLI CLISTR.O.N32$,<' /PASS’ > 
cLI <'=>,0, N32 
cLI CLIDEC, O.N32$ 


N190%: CLI CLIEXI, CRUN 

sREMAINING COMMAND LINE FOR FUNCTION COMMAND 
N200$: CLI CLISPA,O,N201$ 

N201%: CLI CLIOCT,CFUNCT,N32$ 


cir CLIEXI,0O 
sREMAINING COMMAND LINE FOR UNSAVE COMMAND 
N210$: CLI CLISPA,O,N212$ 
N212%: CLI <'/>,0,N215$ 


cir CLIEXI,CUNSVF 
N215%: CLI CLIEXI.O 


THE “ERROR” MACRO. 
ERROR NUMBER, ADDRESS OF ERROR MESSAGE 


IS OPTIONAL, 


SEQ 48 


IF “ZEROS”, SET FLAG 


IF “OPERATOR”, SET FLAG 
AND INPUT SPECIFIED STRING 


ELSE IS WORD “SIZE” 
IF YES, FOLLOWED BY “="? 
STORE NUMBER IN MSSIZE 
CHECK FOR MORE INFO 
ELSE IS WORD “COPIES” 
IF YES, FOLLOWED By “="? 
STORE NUMBER IN MSCPYS 
CHECK FOR MORE INFO 
ELSE “ILL COMMAND” 


P LEADING SPACES 
3IS NEXT WORD “LOOPPAIR” 

; IF YES, SET “LOOPPAIR” FLAG 
sELSE IS NEXT WORD “ALL” 
s_ IF YES, SET “ALL” FLAG 
sELSE IS NEXT WORD “DIRECT” 
s_ IF YES, SET “DIRECT” FLAG 
;ELSE IS NEXT WORD “PATTERN” 
sSEE IF DEFAULT OF 1 PASS 
sPARSE THROUGH SWITCH 
;PARSE THROUGH “=” 
sGET PASS COUNT 
sRUN TEST AND EXIT 


3; SKIP SPACES 
3 OCTAL NUMBER AND DO FUNCT 
3; EX 


sSKIP SPACES 
sPARSE THROUGH ‘ /' 
sSAVE POINTER TO FILE NAME 


SHCA AMEHAAGKSSAKTA SCCM SSA GANAS ASARAK SADT DARGA A Ma SSAA ASA GEICSASTATSTASSHESAS RESO R ERED 
THE ERRTBL MACRO IS REQUIRED IF YOU INTEND TO REPORT ERRORS USING 
THE ERRTBL MACRO EXPANDS INTO FOUR WORDS THAT 
ARE USEO BY THE RUNTIME SERVICES DURING AN ERROR CALL: ERROR TYPE, 
AND ADDRESS OF MESSAGE 
BLOCK. THERE MUST BE ONLY ONE ERRTBL IN ANY PROGRAM. 


THIS SECTION 


REMOVE =F IT IF YOU ARE NOT GOING TO USE THE ERROR 


DO “TYPE”, CHECK FOR MORE INPUT 
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2443 
2444 
2445 
2447 
2448 


052426 
26 


ERRTYP:: 
ERRNBR: : 
ERRMSG: : 
ERRBLK: : 


MACRO. 


CHANGE THE 4. Aes MACRO TO REFLECT THIS SECTION’S DEL - 


IK4 


ETION IF YOU REMOVE IT 


ERRTBL 


oooo 


LSERRTBL:: 


SEQ 49 


L4 
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EC BBAL TERY Set r6N _— 
2450 -SBTTL GLOBAL TEXT SECTION 
2451 
2452 pee 
2453 : THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
2454 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
sacs :; MORE THAN ONE TEST. 
3 -<- 
2457 052436 012 015 116 CLISPM: .ASCIZ <12><15>/NIE>/ sNIE PROMPT 
052441 111 105 076 
052444 000 
2458 052445 045 116 045 CLIERM: .ASCIZ /sNSA?ILL CMD-BAD SYNTAX?/ 
052450 101 077 111 
052453 114 114 040 
052456 103 115 104 
052461 oss 102 101 
052464 104 040 123 
052467 131 116 124 
052472 101 130 077 


2459 052476 045 116 045 CLINUF: .ASCIZ /sNSA?INCOMPLETE COMMAND?/ 


052501 101 077 111 

052504 116 103 117 

052507 115 120 114 

052512 105 124 105 

052515 040 103 117 

115 115 101 

052523 116 104 077 
052526 000 

2460 052527 045 116 04S CLINBG: .ASCIZ /sNSA?NUMBER TOO BIG?/ 

0525 101 077 116 

052535 125 115 102 

0 105 122 040 

052543 124 117 117 

052546 040 102 111 

052551 107 077 000 

2461 052554 045 116 045 CLIBRX: .ASCIZ /sNSA?BAD RADIX?/ 

052557 101 077 102 

052562 101 104 040 

052565 122 101 104 

052570 111 130 077 


2462 052574 045 116 045 LODRESP: .ASCIZ /sNSANODE STA HAS RESPONDED. / 


052577 101 116 117 
052602 104 105 040 
052605 045 124 045 
052610 101 040 110 
052613 101 123 040 
052616 122 105 123 
052621 120 117 116 
052624 104 105 104 
052627 056 000 
2463 052631 045 116 045 RECERR: .ASCIZ /sNSAPACKET RECEIVED WITH UNA ERROR. / 
052634 101 120 101 
052637 103 113 105 
052642 124 040 122 
105 103 105 


M4 
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GLOBAL TEXT SECTION 

052653 104 040 127 
052656 111 124 110 
052661 040 125 116 
052664 101 040 105 
052667 122 122 117 
052672 122 0S6 000 

2464 052675 045 116 04S RTRYER: .ASCIZ /sNSATRANSMISSION ABORTED -- EXCESSIVE COLLISIONS./ 
052700 101 124 122 
052703 101 116 123 
052706 115 111 123 
052711 123 111 117 
052714 116 040 101 
052717 102 117 122 
052722 124 105 104 
052725 040 oss oss 
052730 040 105 130 
052733 103 105 123 
052736 123 111 126 
052741 105 040 103 
052744 117 114 114 
052747 111 123 111 
052752 117 116 123 
052755 0S6 000 

2465 052757 045 116 045 BLOMSG: .ASCIZ /sNSD2sA NODE ADDRESSES ADDED, ELAPSED TIME: sD2sA MINUTE. / 
052762 104 062 045 
052765 101 040 116 
052770 117 104 105 
052773 040 101 104 
052776 104 122 105 
053001 123 123 105 
053004 123 040 101 
053007 104 104 105 
053012 104 054 040 
053015 105 114 101 
053020 120 123 105 
053023 104 040 124 
053026 111 115 105 
053031 072 040 045 
053034 104 062 045 
053037 101 040 115 
053042 111 116 125 
053045 124 105 056 
053050 000 

2466 053051 045 116 04S ILADMS: .ASCII /ssNSACANNOT USE BROADCAST ADDRESS (FF -FF -FF-FF -FF-FF)/ 
053054 101 103 101 
053057 116 116 117 
053062 124 040 125 
053065 123 105 040 
053070 102 122 117 
053073 101 104 103 
053076 101 123 124 
053101 040 101 104 
053104 104 122 105 
053107 123 123 040 
053112 050 106 106 
053115 os5 106 106 


N4 
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ie) 
2467 


ie) 
2468 


2469 


2470 


053123 
053126 


ILADM1: 


CADRER: 


CADERR: 


NULSTR: 


-ASCIZ /ssNSAA ZERO LENGTH STRING WAS ENTERED. / 





-ASCIZ /sSNSAPLEASE ENTER TWELVE HEXADECIMAL DIGITS./ 


-ASCIZ /sSNSATWELVE HEX-DIGITS REQUIRED FOR ADORESS./ 


—_— 


SEQ S2 


-ASCIZ /sNSAFOR LOOP TESTING. ADDRESS WAS NOT ADDED TO NODE TABLE.#sN/ 


BS 
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OBAL TEXT SECTION 
053370 132 105 122 
053373 117 040 114 
053376 105 116 107 
053401 124 110 040 
053404 123 124 122 
053407 111 116 107 
053412 040 127 101 
053415 123 040 105 
20 116 124 105 
053423 122 105 104 


000 
2471 053430 045 116 045 NODADR: .ASCIZ /SNSSQST/ 


053436 124. 000 

2472 053440 045 123 061 LOGNAM: .ASCIZ /8S14SANSD2/ 

053445 064 045 101 
053446 116 045 104 
053451 062 000 

2473 053453 045 123 061 NODTYP: .ASCIZ /#S14s8T/ 
053456 064 045 124 
053461 000 

2474 053462 045 116 045 NTBHOR: .ASCIZ \sNSANODE PHYSICAL ADDRESS NODE LOGICAL NAME TYPECA/T)\ 
053465 101 116 117 
053470 104 105 040 
053473 120 110 131 
053476 123 111 103 
053501 101 114 040 

3 101 104 104 
053507 122 105 123 
053512 123 040 040 
053515 040 040 040 
3 116 117 104 

053523 105 040 114 
053526 117 107 111 
053531 103 101 114 
053534 040 116 101 
053537 115 105 040 
053542 040 040 040 
053545 040 124 131 
053550 120 105 
053553 101 057 124 
053556 051 000 

2475 053560 045 116 045 TABFUL: .ASCIZ /SNSATHE STSA TABLE IS FILLED TO CAPACITY!/ 
053563 101 124 110 
053 105 040 045 
053571 124 045 101 
053574 040 124 101 
053577 102 114 105 
053602 040 111 123 
0s 040 106 111 
053610 114 114 105 
053613 104 040 124 
053616 117 040 103 
053621 101 120 101 
053624 103 111 124 


05362 000 
2476 053632 045 116 045 TABEMT: .ASCIZ /SNSATHE STSA TABLE IS CURRENTLY EMPTY!/ 


ee’ 


CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-4 SEQ 54 
GLOBAL TEXT SECTION 
053635 101 124 110 
053640 105 040 045 
053643 124 045 101 
053646 040 124 101 
053651 102 114 105 
040 111 123 

053657 040 103 125 
053662 122 122 105 
053665 116 124 114 
053670 131 040 105 
053673 115 120 124 
053676 131 041 000 

2477 053701 116 117 104 NOD: -ASCIZ /NODE/ 
053704 105 000 

2478 053706 123 125 115 SUMM: -ASCIZ /SUMMARY/ 
053711 115 101 122 
053714 131 000 

2479 053716 045 116 045 CLRMSG: .ASCIZ /SNSATHE MESSAGE PARAMETERS HAVE BEEN RESET T0:/ 
053721 101 124 110 
053724 105 040 115 
053727 105 123 123 
053732 101 107 105 
053735 040 120 101 
053740 122 101 115 
053743 105 124 10S 
053746 122 123 040 
053751 110 101 126 
053754 105 040 102 
053757 105 105 116 
053762 040 122 105 
053765 123 105 124 
053770 040 124 117 


2480 053775 045 116 “3 CPYLMT: .ASCIZ /sNSATHE NUMBER OF COPIES MUST BE BETWEEN 1 AND 255./ 


054000 101 124 11 
054003 105 040 116 
054006 125 115 102 
054011 105 122 040 
054014 117 040 
054017 103 117 120 
054022 111 105 123 
054025 040 115 125 
054030 123 124 040 
054033 102 105 040 
054036 102 105 124 
054041 127 105 105 
054044 116 040 061 
054047 040 101 116 
054052 104 040 
054055 065 065 056 
054060 000 

2481 054061 045 116 O45 SIZLMT: .ASCIZ /sNSATHE MESSAGE SIZE [DATA] MUST BE BETWEEN 32 AND 1466 BYTES. / 
054064 101 124 110 
054067 105 040 115 
054072 105 123 123 
054075 101 107 105 


D5 


EEHBRPO TPRYNGE ME AAERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-5 SEQ 55 
054111 124 101 135 
054114 040 115 125 
054117 123 
054122 102 105 040 
054125 102 105 124 
054130 127 105 105 
054133 116 040 063 
054136 062 040 101 
054141 116 104 040 
054144 061 064 066 
054147 066 040 102 
054152 131 124 105 
054155 123 0S6 000 

2482 054160 045 116 045 NOCMPR: .ASCIZ /sSNSATHE ADDRESS MARKED FOR DELETION WAS NOT IN THE TABLE./ 
054163 101 124 110 
054166 105 040 101 
054171 104 104 122 
054174 105 123 123 
054177 040 115 101 
054202 122 113 105 
054205 104 040 106 
054210 117 122 040 
054213 104 105 114 
054216 105 124 111 
054221 117 116 040 
054224 127 101 123 
054227 040 116 117 
054232 124 040 111 
054235 116 040 124 
054240 110 105 040 
054243 124 101 102 
054246 114 105 0S6 


2483 054252 045 116 045 UNBOND: .ASCIZ /sNSAAN UNBOUNDED “OPERATOR INPUT” STRING WAS ENTERED. / 


054255 101 101 116 
054260 040 125 116 
054263 102 117 125 
054266 116 104 105 
054271 104 040 042 
054274 117 120 105 
054277 122 101 124 
054302 117 122 040 

111 116 120 
054310 125 124 042 
054313 040 123 124 
054316 122 111 116 
054321 107 040 127 
054324 101 123 040 
054327 105 116 124 
054332 105 122 105 
054335 104 056 000 

2484 054340 045 116 045 ADRDEL: .ASCIZ /sNSATHE ADDRESS HAS BEEN DELETED FROM THE NODE TABLE./ 

054343 101 124 110 
054346 105 040 101 


ES 


0 NT _ EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-6 SEQ 56 
SEBS? VME Bk 
054354 105 123 123 
054357 040 110 101 
054362 123 040 102 
054365 105 105 116 
054370 040 104 105 
054373 114 105 124 
054376 105 104 040 
054401 106 122 117 
054404 115 040 124 
054407 110 105 040 
054412 116 117 104 
054415 105 040 124 
054420 101 102 114 
054423 105 0S6 000 
2485 054426 045 116 045 LOGDEL: .ASCIZ /SNSANODE N#D1SA HAS BEEN DELETED FROM THE NODE TABLE./ 
054431 101 116 117 
054434 104 105 040 
054437 116 045 104 
054442 061 045 101 
054445 040 110 101 
054450 123 040 102 
054453 105 105 116 
054456 040 104 105 
054461 114 105 124 
054464 105 104 040 
ry 106 122 117 
054472 115 040 124 
054475 110 105 040 
054500 116 117 104 
054503 105 040 124 
054 101 102 114 
054511 105 056 000 
2486 054514 045 116 045 TABCLR: .ASCIZ /sSNSATHE STSA TABLE HAS BEEN CLEARED./ 
054517 101 124 110 
054522 105 040 
054525 124 045 101 
0545 040 124 101 
054533 102 114 105 
) 040 110 101 
054541 123 040 102 
054544 105 105 116 
054547 040 103 114 
054552 105 101 122 
054555 105 104 
054560 000 
2487 054561 045 116 045 UNSMSG: .ASCIZ /sNSATHE NODE TABLE HAS BEEN ST/ 
054564 101 124 110 
054567 105 040 116 
054572 117 104 105 
054575 040 124 101 
102 114 105 
054603 040 110 101 
054606 123 040 102 
054611 105 105 116 
054614 040 045 124 
054617 000 


2488 054620 123 101 126 SAVED: .ASCIZ /SAVED./ 


ZUACBO NI_EXERCISER DIAG MACRO M1200 22-MAR-84 10:53: PAGE 9-7 
a) tied 4 St te — 1200 22 10:53 PAGE SEQ 57 

054623 105 104 056 
054626 000 

2489 054627 122 105 123 RESTOR: .ASCIZ /RESTORED./ 
054632 124 117 122 
054635 105 104 0s6 
054640 —«-000 

2490 054641 045 116 045 ~-MSGPRM: .ASCIZ /sNSATHE CURRENT MESSAGE PARAMETERS ARE:/ 
054644 101 124 110 
054647 105 040 103 
054652 125 122 122 
054655 105 116 124 
054660 040 115 105 
054663 123 123 101 
054666 107 105 040 
054671 120 101 122 
054674 101 115 105 
054677 124 105 122 
054702 123 040 101 
054705 122 105 072 
054710 000 | 

2491 054711 045 116 045 MSG1:  .ASCIZ /#NSATHE COLLECTION OF ALL NODE ADDRESSES COULD TAKE AS LONG AS 40 MINUTES./— 
054714 101 124 110 | 
054717 105 040 103 
054722 117 114 114 
054725 105 103 124 
054730 111 117 116 
054733 040 117 106 
054736 040 101 114 
054741 114 040 116 
054744 117 104 105 
054747 040 101 104 
054752 104 122 105 
054755 123 123 105 
054760 123-040 103 
054763 117 125 114 
054766 104 040 124 
054771 101 113 105 
054774 040 101 123 
054777 040 114 117 
055002 116 107 040 
055005 101 123 040 
055010 «064 060 040 
055013 115 111 116 
055016 125 124 105 
055021 123054 000 

2492 055024 045 116 045 MSG11: .ASCIZ /sNSAHOWEVER, IF NO NEW NODES ARE ADDED TO THE TABLE FOR A 10 MINUTE PERIOD/ 
055027 101 110 117 
055032 127 105 126 
055035 105 122 0564 
055040 040 111 106 
055043 «040 116 117 
055046 040 116 105 
055051 127. 040 116 

117 104 105 

055057 123 040 101 
055062 122 105 040 
055065 101 104 104 


FS 


GS 
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\e) 
2493 
0 


2494 


2495 


2496 


055070 
055073 
055076 
055101 
055104 


055337 


MSGle: 


MSGe: 


MSG3: 


MSG4: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/@NSATHE COLLECTION WILL STOP.sN/ 


/SNSAYOU ENTERED STA NODE: ST/ 


/SNSATHE SPECIFIED ADDRESS IS: sT/ 


/SNSATYPE =8 THA, SIZE =8D48A,COPIES=803/ 


SEQ 58 


H5 


-MAR - : . 
EZHBRPO PRYNGE NEI BKERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-9 SEQ 59 
2497 -EVEN 
2498 055342 045 116 045 HOMSG1: .ASCIZ /sNSA ETHERNET DEFAULT ADDRESS (HEX): sT/ 
055345 101 040 105 
SS3 124 110 105 
055353 122 116 105 
055356 124 040 104 
055361 105 106 101 
055364 125 114 124 
055367 040 101 104 
055372 104 122 105 
055375 123 123 040 
055400 050 110 105 
055403 130 051 O72 
055406 040 040 045 
055411 124 000 
2499 055413 045 116 062 HOMSG2: .ASCIZ /sN28A ROM MICROCODE VERSION (DECIMAL): #03/ 
055416 045 101 040 
055421 122 117 115 
S424 040 115 111 
055427 103 122 117 
055432 103 117 104 
055435 105 040 126 
055440 105 122 123 
0554435 111 117 116 
055446 040 050 104 
055451 105 103 111 
055454 115 101 114 
055457 051 o72 040 
055462 045 104 063 
055465 000 
2500 055466 045 116 062 HOMSGS: .ASCIZ /s#N28A SWITCH PACK SET FOR :/ 
055471 045 101 040 
055474 123 127 111 
055477 ica 103 110 
055502 040 120 101 
055505 103 113 040 
055510 123 105 124 
055513 040 106 117 
055516 122 040 072 
055521 000 
2501 055522 045 116 045 HDMSG4: .ASCIZ /ssNSA REMOTE AND POWER UP BOOT ENABLED/ 
055525 101 040 040 
055530 040 040 040 
055533 040 040 040 
055536 122 105 115 
055541 117 124 105 
055544 040 101 116 
055547 104 040 120 
055552 117 127 105 
055555 122 040 125 
055560 120 040 102 
055565 117 117 124 
055566 040 105 116 
055571 101 102 114 
055574 105 104 000 
2502 055577 045 116 045 HOMSGS: .ASCIZ /ssNSA REMOTE BOOT ENABLED WITH ROM/ 
055602 101 040 040 


) he 


EZ BAGO PENA NE BXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-10 


2503 


2504 


HOMSG7: 


HOMSGS: 


HOMSG9: 


: .ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/ONBA 


/ONBA 


/ONBA 


/SNBA 


REMOTE BOOT ENABLED/ 


REMOTE BOOT DISABLED/ 


SELF TEST LOOP ENABLED/ 


SELF TEST LOOP DISABLED/ 


SEQ 60 


J5 


CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-11 SEQ 61 
GLOBAL TEXT SECTION 
056055 105 104 000 
2507 -EVEN 
2508 056060 045 116 O45 HELP1: .ASCIZ \sNSACOMMAND SUMMARY FOR THE NETWORK INTERCONNECT EXERCISER (NIE)\ 
056063 101 103 117 
056066 115 115 101 
056071 116 104 040 
056074 123 125 115 
056077 115 101 122 
056102 131 040 106 
056105 117 122 040 
056110 124 110 105 
056113 040 116 105 
056116 124 127 117 
056121 122 113 040 
056124 111 116 124 
056127 105 122 103 
056132 117 116 116 
056135 105 103 124 
056140 040 105 130 
056143 105 122 103 
056146 111 123 105 
056151 122 040 050 
056154 116 111 105 


2509 056161 045 116 04S HELP2: .ASCIZ \sNSACIT IS ONLY NECESSARY TO TYPE THE LETTERS IN BRACKETS)\ 


056164 101 050 111 
056167 124 040 111 
056172 123 040 117 
056175 116 114 131 
056200 040 116 105 
056203 103 105 123 
056206 123 101 122 
056211 131 040 124 
056214 117 040 124 
056217 131 120 105 
056222 040 124 110 
056225 105 040 114 
056230 105 124 124 
056233 105 122 123 
056236 040 111 116 
056241 040 102 122 
056244 101 103 113 
056247 105 124 123 
056252 051 000 
2510 056254 045 116 062 HELPS: .ASCIZ \sN2SA(H]JELP OR ? - TYPES THIS HELP TEXT.\ 
056257 045 101 133 
110 135 105 
056265 114 120 040 
056270 117 122 040 
056273 077 011 oss 
056276 040 124 131 
056301 120 105 123 
056304 040 124 110 
056307 111 123 040 
056312 110 105 114 
056315 120 040 124 


KS 


EZ YACBO DEUNA NT BKERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-12 


0 
2511 


2512 


2513 


062 


HELP4;: 


HELPS: 


HELP6: 


-ASCIZ \sN2SA(E)XIT 


-ASCIZ \ssN28A(SH]OW ([NJODES 


-ASCIZ \ssN28A[SH]OW [MJESSAGE 


SEQ 62 


- RETURN TO THE SUPERVISOR.\ 


- PRINTS INFORMATION IN CURRENT NODE TABLE.\ 


; 


- PRINTS THE SELECTED MESSAGE TYPE, SIZE AND COPIES. — 


ina 


EZ YAGBO DENA NT EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-13 SEQ 63 
056572 132 105 040 
056575 101 116 104 
056600 040 103 117 
056603 120 111 105 
056606 123 056 000 

2514 056611 045 116 O62 HELP7: .ASCIZ \sN2sA(SH]OW [CJOUNTERS - PRINTS THE LOW LEVEL COUNTERS OF THE HOST NODE.\ 
056614 045 101 133 
056617 123 110 135 
056622 117 127 040 
056625 133 103 135 
056630 117 125 116 
056633 124 105 122 
056636 123 040 oss 
056641 040 120 122 
056644 111 116 124 
056647 123 040 124 
056652 110 105 040 
056655 114 117 127 
056660 040 114 105 
0566635 126 105 114 
056666 040 103 117 
056671 125 116 124 
056674 105 122 123 
056677 040 117 106 
056702 040 124 110 
056705 105 040 110 
056710 117 123 124 
056713 040 116 117 
056716 104 105 056 
056721 000 

2515 056722 045 116 O62 HELPS: .ASCIZ \ssN2SA[RJUN [LJOOPPAIR/PASS=NN - RUNS THE LOOPPAIR TEST.\ 
056725 045 101 133 
056730 122 135 125 
056733 116 040 133 
056736 114 135 117 
056741 117 120 120 
056744 101 111 122 
056747 0S7 120 101 
056752 123 123 075 
056755 116 116 040 
056760 055 040 122 
056763 125 116 123 
056766 040 124 110 
056771 105 040 114 
056774 117 117 120 
056777 120 101 111 
057002 122 040 124 
057005 105 123 124 
057010 056 000 

2516 057012 045 116 062 HELP9: .ASCIZ \sN2SA(RJUN [A]LL/PASS=NN - RUNS THE NODE-TO-NODE TEST.\ 
057015 045 101 133 
057020 122 135 125 
057023 116 040 133 
057026 101 135 114 
057031 114 120 
057034 101 123 123 


MS 


CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-14 SEQ 64 
GLOBAL TEXT SECTION 


057045 122 125 116 
057050 123 040 124 
057053 110 105 040 
057056 116 117 104 
057061 105 OSS 124 
057064 117 oss 116 
057067 117 104 105 
057072 040 124 105 
057075 123 124 056 
057100 000 

2517 057101 045 116 062 HELP10: .ASCIZ \sN2sA[R]JUN [D]IRECT/PASS=NN - RUNS THE LOOP DIRECT TEST.\ 
057104 045 101 133 
057107 122 135 125 
057112 116 040 133 
057115 104 135 111 
057120 122 105 103 
057123 124 057 120 
057126 101 123 123 
057131 o75 116 116 
057134 040 oss 
057137 122 125 116 
057142 123 040 124 
057145 110 105 040 
057150 114 117 117 
057153 120 040 104 
057156 111 122 105 
057161 103 124 040 
057164 124 105 123 
057167 124 056 000 

2518 057172 045 116 062 HELP11: .ASCIZ \sN2SA[RJUN [PJATTERN/PASS=NN - RUNS THE MESSAGE PATTERN TEST.\ 
057175 045 101 133 
057200 122 135 125 
057203 116 040 133 
057206 120 135 101 
057211 124 124 105 
057214 122 116 057 
057217 120 101 123 
057222 123 075 116 
057225 116 040 oss 
057230 040 122 125 
057233 116 123 040 
057236 124 110 105 
057241 040 115 105 
057244 123 123 101 
057247 107 105 040 
057252 120 101 124 
057255 124 105 122 
057260 116 040 124 
057263 105 123 124 
057266 056 000 

2519 057270 045 116 062 HELP12: .ASCIZ \sN2s8A[MJESSAGE/[T)YPE*A/(S]IZE=N/[C]OPIES=M - ALLOWS THE OPERATOR TO\ 
057273 045 101 133 
057276 115 135 105 
057301 123 123 101 
057304 107 105 057 


NS 


ZYACBO ERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-15 SEQ 65 
EC BBAL Te Se Ct TON 

057312 131 120 105 
057315 075 101 057 
057320 133 123 135 
057323 111 132 105 
057326 075 116 057 
057331 133 103 135 
057334 117 120 111 
057337 105 123 075 
057342 115 040 055 
057345 040 101 114 
057350 114 117 127 
057353 123 040 124 
057356 110 105 040 
057361 117 120 105 
057364 122 101 124 
057367 117 122 040 
057372 124 117 000 

2520 057375 045 116 O45 HELP13: .ASCIZ \sNSAMODIFY THE DEFAULT MESSAGE TYPE, SIZE AND COPY PARAMETERS. \ 
057403 104 111 106 
057406 131 040 124 
057411 110 105 040 
057414 104 105 106 
057417 101 125 114 
057422 124 040 115 
057425 105 123 123 
057430 101 107 105 
057433 040 124 131 
057436 120 105 054 
057441 040 123 111 
057444 132 105 040 
057447 101 116 104 
057452 040 103 117 
057455 120 131 040 
057460 120 101 122 
057463 101 115 105 
057466 124 105 122 
057471 123 056 000 

2521 057474 045 116 O62 HELP14: .ASCIZ \sN2SA[NJODE ADR/TYPE - ENTERS A PHYSICAL ADDRESS INTO THE NODE\ 

101 1 

057502 116 135 117 
057505 104 105 040 
057510 101 104 122 
057513 057 124 131 
057516 120 105 040 
057521 055 040 105 
057524 116 124 105 
057527 122 123 040 
057532 101 040 120 
057535 110 131 123 
057540 111 103 101 
057543 114 040 101 
057546 104 104 122 
057551 105 123 123 
057554 040 111 116 
057557 124 117 040 
057562 124 110 105 


2524 


B6 


EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-16 SEQ 66 


ON 

040 116 117 
104 105 000 
045 116 045 
101 124 101 
102 114 105 
056 040 040 
124 110 105 
040 124 131 
120 105 040 
103 101 116 
040 102 105 
040 105 111 
124 110 105 
122 040 133 
124 135 101 
122 107 105 
124 040 050 
104 105 106 
101 125 114 
124 051 04¢ 
117 122 040 
133 101 135 
123 123 111 
123 124 056 
000 

045 116 062 
045 101 133 
123 125 135 
115 115 101 
122 131 C40 
oss 040 120 
122 111 116 
124 123 040 
101 040 123 
125 115 115 
101 122 i31 
040 117 106 
040 124 110 
105 040 124 
105 123 124 
040 122 105 
123 125 114 
124 123 056 
000 

045 116 062 
045 101 133 
102 135 125 
111 114 104 
040 055 040 
102 125 111 
114 104 123 
040 101 040 
124 101 102 
114 105 040 
117 106 040 
122 105 115 
117 124 105 


HELP1S: 


HELP16: 


HELP17;: 


-ASCIZ \sSNSATABLE. THE TYPE CAN BE EITHER [TJARGET (DEFAULT) OR [AJSSIST.\ 


-ASCIZ \sN2SA[SU]MMARY - PRINTS A SUMMARY OF THE TEST RESULTS.\ 


-ASCIZ \SN2SA[B)JUILD - BUILDS A TABLE OF REMOTE NODE PHYSICAL ADDRESSES BY\ 


C6 


EEHBRPO PRYNGE ME RXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-17 SEQ 67 
040 7 
Seoos?, «= fon,«188 é 
060042 1 110 131 
060045 123 111 103 
101 114 040 
060053 101 104 1 
S6 122 105 123 
060061 123 105 123 


2525 060070 o4a5 116 O45 HELP18: .ASCIZ \sNSALISTENING TO ID MESSAGES ON THE NI.\ 
060073 101 114 111 
060076 123 124 105 
060101 116 111 116 
060104 107 040 124 
060107 117 040 111 
060112 104 040 115 
060115 105 123 123 
060120 101 107 105 
060123 123 040 117 
060126 116 040 124 
060131 110 105 040 
060134 116 111 056 


2526 060140 045 116 O62 HELP19: .ASCIZ \sN2SA[CILEAR [NJODE/ADR - REMOVES THE NODE SPECIFIED BY EITHER ADR\ 


060143 045 101 133 
060146 103 135 114 
060151 105 101 122 
060154 040 133 116 
060157 135 117 104 
060162 105 057 101 
060165 104 122 040 
060170 oss 040 122 
060173 105 115 117 
060176 126 105 123 
060201 040 124 110 
060204 105 040 116 
060207 117 104 105 
060212 040 123 120 
060215 105 103 111 
060220 106 111 105 


060231 111 124 110 
060234 105 122 040 
060237 101 104 122 
060242 000 
2527 060243 045 116 045 WHELP20: .ASCIZ \sNSAOR NODE LOGICAL NAME FROM THE NODE TABLE.\ 

060246 101 117 122 
060251 040 116 117 
060254 104 105 040 
060257 114 117 107 
060262 111 103 101 
060265 114 040 116 
060270 101 115 105 
060273 040 106 122 


D6 
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GLOBAL TEXT SECTION 
060301 124 110 105 
060304 040 116 117 
7 104 105 040 
060312 124 101 102 
060315 114 105 0S6 
060320 000 
2528 060321 045 116 062 HELP21: .ASCIZ \sN2SA[CIJLEAR [NJODE/[ALJL - CLEARS THE NODE TABLE.\ 
060324 045 101 133 
060327 103 135 114 
060332 105 101 122 
060335 040 133 116 
060340 135 117 104 
060343 105 057 133 
060346 101 114 135 
060351 114 040 oss 
060354 040 103 114 
060357 105 101 122 
060362 123 040 124 
060365 110 105 040 
060370 116 117 104 
060373 105 040 124 
060376 101 102 114 
060401 105 056 000 
2529 060404 045 116 062 HELP22: .ASCIZ \sN2SA[C]LEAR [MJESSAGE - SETS ALL MESSAGE PARAMETERS TO DEFAULT.\ 
060407 045 101 133 
060412 103 135 114 
060415 105 101 122 
060420 040 133 115 
060423 135 105 123 
060426 123 101 107 
060431 105 040 05S 
060434 040 123 105 
060437 124 123 040 
060442 101 114 114 
060445 040 115 105 
060450 123 123 101 
060453 107 105 040 
120 101 122 
060461 101 115 105 
060464 124 105 122 
060467 123 040 124 
060472 117 040 104 
060975 105 106 101 
125 114 124 
060503 0S6 000 
2530 060505 045 116 O62 HELP235: .ASCIZ \sN2SA(CILEAR [SJUMMARY - CLEARS THE TABLE OF SUMMARY TEST DATA.\ 
060510 045 101 133 
060513 103 135 114 
060516 105 101 122 
06052 040 133 123 
060524 135 125 115 
060527 115 101 122 
060532 131 040 oss 
060535 040 103 114 
060540 105 101 122 
060543 123 040 124 


E6 


0 R -MAR - ‘ ’ 
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060551 124 101 102 
060554 114 105 040 
060557 117 106 040 
060562 123 125 115 
060565 115 101 122 
060570 131 040 124 
060573 105 123 124 
060576 040 104 101 
060601 124 101 056 
~ 2531 060605 045 116 O62 HELP24: .ASCIZ \sN2WA[IJDENTIFY ADR - USES THE REQUEST ID FUNCTION TO IDENTIFY A 
060610 045 101 133 
060613 111 135 104 
060616 105 116 124 
060621 111 106 131 
060624 040 101 104 
060627 122 040 0S5 
060632 040 125 123 
060635 105 123 040 
060640 124 110 105 
060643 040 122 105 
060646 121 125 105 
060651 123 124 040 
060654 111 104 040 
060657 106 125 116 
060662 103 124 111 
060665 117 116 040 
060670 124 117 040 
060673 111 104 105 
060676 116 124 111 
060701 106 131 040 
060704 101 040 122 
060707 105 115 117 
060712 124 105 040 
060715 116 117 104 
060720 105 040 117 
060723 116 040 124 
060726 110 105 040 
060731 116 111 056 
060734 000 
oe Doors eee 116 O62 HELP25: .ASCIZ \sN2WA[SA]VE - SAVES THE CONTENTS OF THE NODE TABLE. \ 
060743 123 101 135 
060746 126 105 040 
060751 055 040 123 
060754 101 126 105 
060757 123 040 124 
060762 110 105 040 
» 060765 103 117 116 
~- 960770 124 105 116 
060773 124 123 040 
060776 117 106 040 
061001 124 110 105 
061004 040 116 117 
061007 104 105 040 
061012 124 101 102 
061015 114 105 056 


REMOTE NOD 


F6 
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2533 061021 045 116 ose HELP26: .ASCIZ \sN2sA(U]NSAVE - REPLACES THE CURRENT NODE TABLE WITH THE SAVED ONE.\ 


061027 125 135 116 
061032 123 101 126 
061035 105 040 oss 
061040 040 122 105 
061043 120 114 101 
061046 103 105 123 
061051 040 124 110 
061054 105 040 103 
061057 125 122 122 
061062 105 116 124 
061065 040 116 117 
061070 104 105 040 
061073 124 101 102 
061076 114 105 040 
061101 127 111 124 
061104 110 040 124 
061107 110 105 040 
061112 123 101 126 
061115 105 104 040 
061120 117 116 105 
061123 0S6 000 
2534 061125 045 116 045 HELP27: .ASCIZ \sNSS8SANOTES: 1) ADR IS THE PHYSICAL ADDRESS OF A NODE ON THE NI.\ 
061130 123 070 045 
061133 101 116 117 
061136 124 105 123 
061141 o72 040 061 
061144 0S1 040 101 
061147 104 122 040 
061152 111 123 040 
061155 124 110 105 
061160 040 120 110 
061163 131 123 111 
061166 103 101 114 
061171 040 101 104 
061174 104 122 105 
061177 123 123 040 
061202 117 106 040 
061205 101 040 116 
061210 117 104 105 
061213 040 117 116 
061216 040 124 110 
061221 105 040 116 
061224 111 056 000 
” 2535 061227 045 116 045 HELP28: .ASCIZ \sNSSESA 2) PASS COUNT IS A DECIMAL NUMBER BETWEEN 1 AND 65534. A DEFA 

061232 123 070 045 
061235 101 040 040 


061251 101 123 123 
061254 040 103 117 
061257 125 116 124 
061262 040 111 123 


G6 


R R MACRO M1200 -MAR-84 10:53 PAGE 9-21 SEQ 71 
EZ YAGBO DENA NT EXE CISER DIAG MACRO M1 22 1 

061270 104 105 103 

061273 111 115 101 

061276 114 040 116 

061301 125 115 102 

061304 10S 122 040 

061307 102 105 124 

061312 127 105 105 

061315 116 040 061 


061334 101 040 104 
061337 105 106 101 
061342 125 114 124 
061345 000 
2536 061346 045 116 045 HELP29: .ASCIZ \sNSS8SA VALUE OF 1 IS ASSUMED.\ 
061351 123 070 045 
061354 101 040 040 


061365 040 040 126 
061370 101 114 125 
061373 105 040 117 
061376 106 040 061 
061401 040 111 123 
061404 040 101 123 
061407 123 125 115 
061412 105 104 056 
061415 000 
2537 061416 045 116 045 HWELP3O: .ASCIZ \ssNSS8SA SPECIFYING -1 CAUSES THE TEST TO BE RUN INDEFINATELY.\ 

061421 123 070 045 
061424 101 040 040 


061435 040 040 123 
061440 120 105 103 
061443 111 106 131 
061446 111 116 107 
061451 040 oSS 061 
061454 040 103 101 
061457 125 123 105 
061462 123 040 124 
061465 110 105 040 
061470 124 105 123 
061473 124 040 124 
061476 117 040 102 
061501 105 040 122 
061504 125 116 040 
061507 111 116 104 
061512 105 106 111 
061515 116 101 124 
061520 105 114 131 
061523 056 000 
2538 -EVEN 


2539 3 
2540 F TEST MESSAGES AND ARGUMENTS 


H6 


EZYBRPO PE YNEE NE BNERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 9-22 SEQ 72 
2541 3 
2542 
2543 061 045 116 045 PASABT: .ASCIZ /ssNSA PASS ABORTED!/ 
061531 101 040 120 
061534 101 123 123 
061537 040 101 102 
061542 117 122 124 
061545 105 104 041 
061550 000 
2544 061551 045 116 045 TSTMS1: .ASCIZ /sNSTSA TEST -- / 
061554 124 045 101 
061557 040 124 105 
061562 123 124 040 
061565 oss 0s5 040 
061570 000 
2545 061571 045 116 045 TSTMS2: .ASCIZ /sNSTSA NODE: ST/ 
061574 124 045 101 
061577 040 116 117 
061602 104 105 072 
061605 040 045 124 
061610 000 
2546 061611 045 124 04S TSTMS3: .ASCIZ /sTSA ERROR/ 
061614 101 040 105 
061617 122 122 117 
061622 122 000 
2547 061624 045 116 045 TSTMS4: .ASCIZ /sNSTSA NODE: STSTSA NODE: ST/ 
061627 124 045 101 
061632 040 116 117 
061635 104 105 072 
061640 040 045 124 
061643 045 124 045 
061646 101 040 116 
061651 117 104 105 
061654 O72 040 045 
061657 124 000 
2548 061661 045 101 040 OK: -ASCIZ /#A - RESPONSE OK/ 
061664 0s5 040 122 
061667 105 123 120 
061672 117 116 123 
061675 105 040 117 
061700 113 000 
2549 061702 045 116 045 OKRE: -ASCIZ /ssNSA - RECEIVE ASSIST - RESPONSE OK/ 
061705 101 040 oss 
061710 040 122 105 
061713 103 105 111 
061716 126 105 040 
061721 101 123 123 
061724 111 123 124 
061727 040 055 040 
061732 122 105 123 
061735 120 117 116 
061740 123 105 040 
061743 117 113 000 
2550 061746 045 116 045 OKTR: -ASCIZ /sNSA - TRANSMIT ASSIST - RESPONSE OK/ 
061751 101 040 055 
061754 040 124 122 
061757 101 116 123 


16 
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GLOBAL TEXT SECTION 


2551 


2552 


2553 


2554 


2555 


2556 


2557 


2558 


OKFU;: 


MESPAT: .ASCIZ /sNSAERROR OCCURED WITH STA MESSAGE TYPE/ 


MESPAL: 


ALLNOD: 


LUPAIR: 


DIRECT: 


FULAST: 


TRAST: 


-ASCIZ /sNSA - FULL ASSIST - RESPONSE OK/ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/#A DATA PATTERN: sT/ 


/ALL NODE/ 


/LOOPPAIR/ 


“LOOP DIRECT/ 


/FULL ASSISTZ 


/TRANSMIT ASSIST/ 


SEQ 73 


EZYACBO DENA NT BRERCISER DIAG MACRO M1200 22-MAR-84 


2559 


2560 


2561 


2562 


2563 


RECAST: 


PATTRN: 


NORESP : 


RETRY: 


LENGTH: 


COMPAR: 


MSGTYO: 
MSGTY1: 
MSGTY2: 
MSGTYS3: 
MSGTY4: 
MSGTYS: 
MSGTY6: 


CMOTY1: 
CMOTY2: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-EVEN 

-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 


J6 


10:53 PAGE 9-24 


/RECEIVE ASSIST/ 


/MESSAGE PATTERN/ 


/NO RESPONSE / 


ZEXCESSIVE COLLISION/ 


/LENGTH/ 


/DATA COMPARISON/ 


/ALPHA/ 
/ONES/ 
/ZEROS/ 
J1ALT/ 
ZOALT/ 
/CCITT/ 
OPER SEL/ 


JEXIT/ 
7 SUMMARY / 


sMESSAGE TYPES 


sCOMMAND TYPES 


SEQ 74 


Hee eO DENA NT EXERC (SER DIAG MACRO M1200 22-MAR-84 


2576 
2577 
2578 
2579 


2580 
2581 


2589 


2590 
2591 


2592 
2593 
2594 


CMOTY3: .ASCIZ 
CMOTY4: .ASCIZ 
CMOTYS: .ASCIZ 
CMOTY6: .ASCIZ 


CMOTY7: .ASCIZ 
CMOTY8: .ASCIZ 
CMDTY9: .ASCIZ 


ARGTY1: .ASCIZ 


ARGTY2: .ASCIZ 


ARGTY3: .ASCIZ 


ARGTY4: .ASCIZ 


ARGTYS: .ASCIZ 
ARGTY6: .ASCIZ 


ARGTY7: .ASCIZ 


-EVEN 
NOCLK: .ASCIZ 


: 
; UNA COUNTER INFORMATICN MESSAGES 


IK6 


10:53 PAGE 9-25 


/BUILD/ 
/SHOW/ 
/RUN/ 
/MESSAGE / 


/NODE / 
/CLEAR/ 
/REQUEST ID/ 


/NODES/ 

/MESSAGES/ 
/COUNTERS/ 
/LOOPPAIR/ 


JALL/ 
/ ASSIST/ 


/TARGET/ 


/SNSABAD CLOCK - PROGRAM WILL HANG ON “TIMEQUT”!!7/ 


sARGUMENT TYPES 


SEQ 75 


L6 
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GLOBAL TEXT SECTION sage 
3596 : 
2597 062703 045 116 045 CNTROO: .ASCIZ /SNSSSSACONTENTS OF NODE STA INTERNAL COUNTERS: / 
062706 123 065 045 
062711 101 103 117 
062714 116 124 105 
062717 116 124 123 
062722 040 117 106 
062725 040 116 117 
062730 104 105 040 
062733 045 124 045 
062736 101 040 111 
062741 116 124 105 
062744 122 116 101 
062747 114 040 103 
062752 117 125 116 
062755 124 105 122 
062760 123 072 
2598 062763 045 116 O62 CNTRO1: .ASCIZ /sN2s8ASECONDS SINCE LAST ZEROED:#S158Z5/ 
062766 045 101 123 
062771 105 103 117 
062774 116 104 123 
062777 040 123 111 
063002 116 103 105 
063005 040 114 101 
063010 123 124 040 
063013 132 105 122 
063016 117 105 104 
063021 072 045 123 
063024 061 065 045 
063027 132 065 000 
2599 063032 045 116 045 CNTRO2: .ASCIZ /sNSAPACKETS RECEIVED: 8S198T/ 
063035 101 120 101 
063040 103 113 105 
063043 124 123 040 
063046 122 105 103 
063051 105 111 126 
063054 105 104 072 
063057 045 123 061 
3062 O71 045 124 
063065 000 
2600 063066 045 116 045 CNTROS: .ASCIZ /sNSAMULTICAST PACKETS RECEIVED: #S9sT/ 
063071 101 115 125 
063074 114 124 111 
063077 103 101 123 
063102 124 040 120 
063105 101 103 113 
063110 105 124 123 
063113 040 122 105 
063116 103 105 111 
063121 126 105 104 
063124 o72 045 123 
063127 o71 045 124 
063132 000 
2601 063133 045 116 045 CNTRO4: .ASCTZ /sNSAPACKETS REC'D WITH ERROR - BITMAP: 8S9NB83/ 
063136 101 120 101 


M6 
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063144 124 123 
063147 122 105 103 
063152 047 104 040 
063155 127 111 124 
063160 110 105 
063163 122 122 117 
063166 122 oss 
063171 040 102 111 
063174 124 115 101 
063177 120 072 045 
063202 123 o71 045 
063205 102 063 000 

2602 063210 045 116 04S CNTROS: .ASCIZ /sNSAPACKETS RECEIVED WITH ERROR: #S13825/ 
063213 101 120 101 
063216 103 113 105 
063221 124 123 040 
063224 122 105 1c3 
063227 105 111 126 
063232 105 104 040 
063235 127 111 124 
063240 110 105 
063243 122 122 117 
063246 122 072 045 
063251 123 061 063 
063254 045 132 065 
063257 000 

2603 063260 045 116 04S CNTRO6: .ASCIZ /sSNSADATA BYTES RECEIVED: 8S168T/ 
063263 101 104 101 
06 124 101 040 
063271 102 131 124 
063274 105 123 040 
063277 122 105 103 
063302 105 111 126 
063305 105 104 072 
063310 045 123 061 
063313 066 o4e 124 
063316 000 

2604 063317 045 116 04S CNTRO7: .ASCIZ /sNSAMULTICAST DATA BYTES RECEIVED: sS6s8T/ 
063322 101 115 125 
063325 114 124 111 
063330 103 101 123 
063333 124 040 104 
063336 101 124 101 
063341 040 102 131 
063344 124 105 123 
063347 040 122 105 
063352 103 105 111 
063355 126 105 


2605 063367 045 116 045 CNIROS: .ASCIZ /sNSARECEIVED PACKETS LOST-INTERNAL :#S108Z5/ 
063372 101 122 105 
063375 103 105 111 
063400 126 105 104 
063403 040 120 101 


SEQ 77 


N6 
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EES5P° BSNS BX 

063411 124 123 040 
063414 114 117 123 
063417 124 oss 111 
063422 116 124 105 
063425 122 116 101 
063430 114 o72 045 
063433 123 061 060 
063436 045 132 065 
063441 000 

2606 063442 045 116 045 CNTRO9: .ASCIZ /sNSARECEIVED PACKETS LOST -LOCAL:#S1287Z5/ 
063445 101 122 105 
063450 103 105 111 
063453 126 105 104 
063456 040 120 101 
063461 103 113 105 
063464 124 123 040 
063467 114 117 123 
063472 124 040 oss 
063475 114 117 103 
063500 101 114 072 
063503 045 123 061 
063506 062 045 132 
063511 065 000 

2607 063513 045 116 045 CNTR1O: .ASCIZ /sNSAPACKETS TRANSMITTED: 8S168T/ 
063516 101 120 101 
063521 103 113 105 
063524 124 123 040 
063527 124 122 101 
063532 116 123 115 
063535 111 124 124 
063540 105 104 072 
063543 045 123 061 
063546 066 045 124 
063551 000 

2608 063552 045 116 04S CNTR11: .ASCIZ /sNSAMULTICAST PACKETS TRANSMITTED: #S6s8T/ 
063555 101 115 125 
063560 114 124 111 
063563 103 101 123 
063566 124 040 120 
063571 101 103 113 
063574 105 124 123 
063577 040 124 122 
063602 101 116 123 
063605 115 111 124 
063610 124 105 104 
063613 072 045 123 
063616 066 045 124 
063621 000 

2609 063622 045 116 045 CNTR12: .ASCIZ /sNSAPACKETS TRANSMITTED 3+ TRYS:#S8s1/ 
063625 101 120 101 
063630 103 113 105 
063633 124 123 040 
063636 124 122 101 
063641 116 123 115 
063644 111 124 124 
063647 105 104 040 


DEUNA 


SzyaAceO 
OBAL TEXT SE 


2610 


2611 


2612 


2613 


2614 


N 
c 


B7 
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ION 


131 


CNTR13;: .ASCIZ /sSNSAPACKETS TRANSMITTED 2 TRYS:sS9sT/ 


CNTR14: .ASCIZ /SNSAPACKETS DEFFERED:8S19=8T/ 


CNTR1IS: .ASCIZ /SNSADATA BYTES TRANSMITTED: 8S1358T/ 


CNTR16: .ASCIZ /SNSAMULTICAST BYTES TRANSMITTED: 8S8sT/ 


CNTR17: .ASCIZ /SNSATRANSMIT PACKETS ABORTED -BITMAP;:8S8s86/ 


SEQ 79 


rt 


“a? , 


C7 
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GLOBAL TEXT SECTION 


2615 


2616 


2623 


= 2624 


045 CNTR16: .ASCIZ /SNSATRANSMIT PACKETS ABORTED: 8S16825/ 


045 CNTR19: .ASCIZ /sNSAXMIT COLLISION CHECK FAILURE :#S128Z5/ 


3 
3 ERROR MESSAGES FOR DEUNA DRIVER 
3 


ee EMSGOi: .ASCIZ /UNA PORT COMMAND ERROR/ 


101 EMSGO2: .ASCIZ /UNA FATAL ERROR/ 


105 EMSGOS: .ASCIZ /UNEXPLAINED UNA INTERRUPT/ 


SEQ 80 


D7 
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GLOBAL TEXT SECTION 
064344 130 120 114 
064347 101 111 116 
3 105 104 040 
064355 125 116 101 
064360 040 111 116 
064363 124 105 122 
064366 122 125 
064371 124 000 
2625 064373 125 116 113 EMSGO4: .ASCIZ /UNKNOWN UNA ERROR/ 
064376 116 117 127 ‘ 
064401 116 040 125 
064404 116 101 040 
064407 105 122 122 
064412 117 122 000 
2626 064415 125 116 101 EMSGOS: .ASCIZ /UNA WON'T READ PCB ADDRESS/ 
064420 040 127 117 
064423 116 047 124 
26 040 122 105 
064431 101 104 
064434 120 103 102 
064437 040 101 104 
104 122 105 
064445 123 123 000 
2627 064450 125 116 101 EMSGO6: .ASCI7 /UNABLE TO READ PHYSICAL ADDRESS/ 
064453 102 114 105 
064456 040 124 117 
064461 040 122 105 
064464 101 104 040 
064467 120 110 131 
064472 123 111 103 
064475 101 114 040 
064500 101 104 104 
064503 122 105 123 
064506 123 000 
2628 064510 125 116 101 EMSGO7: .ASCIZ /UNA WILL NOT GO INTO RUNNING STATE/ 
064513 040 127 111 
064516 114 114 
064521 116 117 124 
064524 040 107 117 
064527 040 111 116 
064532 124 117 
064535 122 125 116 
064540 116 111 116 - 
064543 107 040 123 
S46 124 101 124 
064551 105 000 
2629 064553 124 111 115 EMSGO8: .ASCIZ /TIMEOUT!--TRANSMIT FLAG NOT SET/ 
064556 105 117 125 
064561 124 041 oss 
064564 oss 124 122 
064567 101 116 123 
064572 115 111 124 
064575 040 106 114 
064600 101 107 040 
064603 116 117 124 
064606 040 123 105 
064611 124 000 


af 
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2631 


2632 


2633 


2634 


= EMSGO9: .ASCIZ /ERROR DURING TRANSMIT PDMD COMMAND/ 


tt! EMSG10: .ASCIZ /TRANSMIT RING BOOKKEEPING ERROR/ 
/ 


116 a 


/ 


‘= EMSG11: .ASCIZ /RECEIVE RING BOOKKEEPING ERROR/ 


es EMSG14: .ASCIZ /MESSAGE SIZE TOO BIG FOR MAX. PACKET LENGTH/ 


+t EMSG15: .ASCIZ /ONI DID NOT SET FROM RESET/ 


SEQ 82 


F7 
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065061 105 124 000 
2635 065064 125 116 101 EMSG16: .ASCIZ /UNA WILL NOT READ DESCRIPTOR RINGS/ 
065067 040 127 111 
065072 114 114 
065075 116 117 124 
065100 040 122 105 
065103 101 104 040 
065106 104 105 123 
065111 103 122 111 
065114 120 124 117 
065117 122 040 122 
065122 111 116 107 
065125 123 000 
2636 065127 103 101 116 EMSG18: .ASCIZ /CAN'T GET INITIAL STATUS INFO FROM UNA/ 
065132 047 124 040 
065135 107 105 124 
065140 040 111 116 
065143 111 124 111 
065146 101 114 040 
065151 123 124 101 
065154 124 125 123 
065157 040 111 116 
065162 106 117 
065165 106 122 117 
065170 115 040 125 
065173 116 101 
2637 065176 115 105 123 EMSG19: .ASCIZ /MESSAGE DATA COMPARISON ERROR/ 
065201 123 101 107 
065204 105 040 104 
065207 101 124 101 
065212 040 103 117 
065215 115 120 101 
065220 122 111 123 
065223 117 116 040 
065226 105 122 122 
065231 117 122 000 
2638 065234 124 117 124 EMSG20: .ASCIZ /TOTAL DATA COMPARE ERRORS/ 
065237 101 114 040 
065242 104 101 124 
065245 101 040 103 
065250 117 115 120 
065253 101 122 105 
065256 040 105 122 
065261 122 117 122 
065264 123 000 
2639 065266 045 116 045 EMSG22: .ASCIZ /ssNSANO RESPONSE FROM NODE. / 
065271 101 116 117 
065274 040 122 105 
065277 123 120 117 
065302 116 123 105 
065305 040 106 122 
065310 117 115 040 
065313 116 117 104 
065316 105 056 000 
2640 065321 105 122 122 EMSG23: .ASCIZ /ERROR WHILE ATTEMPTING TO WRITE MODE/ 
065324 117 122 040 


SEQ 83 


G7 
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065332 114 105 
065335 101 124 124 
065340 105 115 120 
065343 124 111 116 
065346 107 124 
065351 117 040 127 
065354 122 111 124 
065357 105 040 115 
065362 117 104 105 
065365 000 

2641 065366 124 122 101 EMSG24: .ASCIZ /TRANSMIT ERROR, ALL PACKETS NOT TRANSMITTED/ 
065371 116 123 115 
065374 111 124 040 
065377 105 122 122 
065402 117 122 
065405 040 101 114 
065410 114 040 120 
065413 101 103 113 
065416 105 124 123 
065421 040 116 117 
065424 124 040 124 
065427 122 101 116 
065432 123 115 111 
065435 124 124 105 
065440 104 000 

2642 065442 105 122 122 EMSG25: .ASCIZ /ERROR WHILE ATTEMPTING TO WRITE MULTICAST ADDRESS LIST/ 
065445 117 122 040 
065450 127 110 111 
065453 114 105 040 
065456 101 124 124 
065461 105 115 120 
065464 124 111 116 
065467 107 040 124 
065472 117 040 127 
065475 122 111 124 
065500 105 040 115 
065503 125 114 124 
065506 111 103 101 
065511 123 124 040 
065514 101 104 104 
065517 122 105 123 
065522 123 040 114 
065525 111 123 124 
065530 000 , 

2643 065531 105 122 122 EMSG30: .ASCIZ /ERROR WHILE ATTEMPTING PORT FUNCTION/ 
065534 117 122 040 
065537 127 110 111 
065542 114 105 040 
065545 101 124 124 
065550 105 115 120 
065553 124 111 116 
065556 107 120 
065561 117 122 124 
065564 040 106 125 
065567 116 103 124 
065572 111 117 116 


SEQ 84 


H/ 


R MA - - : - 
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2644 065576 125 116 101 EMSG31: .ASCIZ /UNABLE TO READ INTERNAL COUNTERS/ 
065601 102 114 105 
065604 040 124 117 
"45607 040 122 105 
5612 101 040 
22615 111 116 124 
105 122 116 
0656235 161 114 040 
06 103 117 125 
065631 116 124 105 
065634 122 123 000 
2645 065637 045 116 O45 EMSG32: .ASCIZ \ssNSAILLEGAL TARGET/ASSIST PAIR IN NODE TABLE\ 
065642 101 111 114 
065645 114 105 107 
065650 101 114 040 
065653 124 101 122 
065656 107 10S 124 
065661 057 101 123 
123 111 123 
065667 124 040 120 
065672 101 111 122 
065675 040 111 116 
065700 040 116 117 
065703 104 105 040 
065706 124 101 102 
065711 114 105 000 
2646 eexeis ios nt ‘ie EMSG33: .ASCIZ /TIMEOUT ERROR/ 
065722 124 040 105 
065730 iss 
2647 065732 015 012 124 EMSG34: .ASCIZ <15><12>/TIMEOUT OCCURED BEFORE LOOPBACK REPLY/ 
065735 111 115 105 
065740 117 125 124 
065743 040 117 103 
065746 103 125 122 
065751 105 104 040 
065754 102 105 106 
065757 117 122 105 
065762 040 114 117 
065765 117 120 102 
065770 101 103 113 
065773 040 122 105 
Sesent = 114 131 
2648 066002 045 101 106 EMSG35: .ASCIZ /#AFAILING NODE ADDRESS: sTsN/ 
066005 101 111 114 
066010 111 116 107 
066013 040 116 117 
066016 104 105 040 
066021 101 104 104 
066024 122 105 123 
066027 123 072 040 
066032 045 124 045 
066035 116 000 


2649 066037 045 101 3 EMSG36: .ASCIZ /#ADATA PATTERN: sTSN/ 
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GLOBAL TEXT SECTION 


2650 


2651 


2652 


2653 


066045 
066050 


EMSG37: 


-ASCIZ 


/SAFAILING TARGET NODE ADDRESS: sTsN/ 


EMSG38: .ASCIZ /sAFAILING ASSIST NODE ADDRESS: sTsN/ 


EMSG40: 


EMSG41: 


-ASCIZ 


-ASCIZ 


<15><12>/TIMEOUT OCCURED - LOOP MESSAGE TYPE 


<15><12>/TIMEOUT OCCURED - LOOP MESSAGE TYPE 


SEQ 86 


- RECEIVE ASSIST/ 


- TRANSMIT ASSIST 
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GLOBAL TEXT SECTION 
066316 123 123 101 
066321 107 105 040 
066324 124 131 120 
066327 105 040 oss 
066332 040 124 122 
066335 101 116 123 
066340 115 111 124 
066343 040 101 123 
066346 123 111 123 
066351 124 000 
2654 066353 01s Ole 124 EMSG42: .ASCIZ <15><12>/TIMEQUT OCCURED - LOOP MESSAGE TYPE - FULL ASSIST/ 
066356 111 115 105 
066361 117 125 124 
066364 040 117 103 
066367 103 125 122 
066372 105 104 040 
066375 oss 040 114 
066400 117 117 120 
066403 040 115 105 
066406 123 123 101 
066411 107 105 040 
066414 124 131 120 
066417 105 040 oss 
066422 040 106 125 
066425 114 114 040 
066430 101 123 123 
066433 111 123 124 
066436 000 
2655 
2656 EVEN 
2657 066440 045 116 O45 SIMSG1: .ASCIZ /sNSA NODE DEFAULT ADDRESS: sT/ 
066443 101 040 040 
116 117 104 
066451 105 040 104 
066454 105 106 101 
066457 125 114 124 
040 101 104 
066465 104 122 105 
066470 123 123 072 
066473 040 045 124 
066476 000 
2658 066477 045 116 045 SIMSG2: .ASCIZ /sSNSSSSARECEIPT NUMBER: 806/ 
066502 123 070 045 
066505 101 122 105 
066510 103 105 111 
066513 120 124 
066516 116 125 115 
066521 102 105 122 
066524 072 040 045 
066527 117 066 000 
2659 066532 045 116 045 SIMSG3: .ASCIZ /sNSA MAINTENANCE VERSION: #Z2/ 
066535 101 040 040 
066540 040 115 101 
066543 111 116 124 
066546 105 116 101 
066551 116 103 105 
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2661 


2663 


066557 
562 


SIMSG4: 


SIMSGS: 


SIMSG6: 


SIMSG7: 


.EVEN 
PCMSG: : 


.EVEN 
CMPER1: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
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/ENSS19SAECO: 8Z2/ 


/SNSS1L4SAUSER ECO: 8Z2/ 


/SNSS14SAFUNCTION: #02/ 


/SNSSL6ESADEVICE: #02/ 


/@NSAPC OF CALLING ROUTINE = #06/ 


/SNSABYTE NUMBER: 8D48A(D) EXPECTED=s8068A(0) RECIEVED=s068A(0)/ 


L/ 
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SEMSREO BSN et aS 

067012 124 105 104 
067015 075 045 117 
067020 066 045 101 
067023 050 117 051 
067026 040 122 105 
067031 103 111 105 
067034 126 105 104 
067037 075 045 117 
067042 066 045 101 
067045 050 117 051 
067050 000 

2669 067051 045 116 045 CMPER2: .ASCIZ /sNSATOTAL MISMATCHES IN MESSAGE = #04/ 
067054 101 124 117 
067057 124 101 114 
067062 040 115 111 
067065 123 115 101 
067070 124 103 110 
067073 105 123 040 
067076 111 116 040 
067101 115 105 123 
067104 123 101 107 
067107 105 040 075 
067112 040 045 104 
067115 064 000 

2670 067117 045 116 045 LGERMS: .ASCIZ /SNSALENGTH ERROR -- BYTES EXPECTED: s068A BYTES RECEIVED: #06/ 
067122 101 114 105 
067125 116 107 124 
067130 110 040 105 
067133 122 122 117 
067136 122 040 oss 
067141 oss 040 102 
067144 131 124 105 
067147 123 040 105 
067152 130 120 105 
067155 103 124 105 
067160 104 o72 040 
067163 045 117 066 
067166 045 101 040 
067171 102 131 124 
067174 105 123 040 
067177 122 105 103 
067202 105 111 126 
067205 105 104 o72 
067210 040 045 117 
067213 066 000 

2671 067215 045 116 062 SUMMS1: .ASCIZ /sSN2SS8SANODE: ST/ 
067220 045 123 070 
067223 045 101 116 
067226 117 104 105 
067231 o72 040 045 
067234 124 000 

2672 067236 045 116 045 SUMMS2: .ASCIZ /sNSARX NOT COMPLETE RX COMPLETE LENGTH ERRORS/ 
067241 101 122 130 
067244 040 116 117 
067247 124 040 103 
067252 117 115 120 
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GLOBAL TEXT SECTION 


2673 


2674 


2675 


2677 
2679 


SUMMS3: 


SUMMS4 : 


SUMMSS ; 


SUMMS6 : 
.EVEN 


-ASCIZ /sN#S68Z58S128758S108Z5/ 


-ASCIZ /ssNSACOMPARE ERRORS 


-ASCIZ /SNSS68Z58SE8T/ 


-ASCIZ /#SSs8T/ 


BYTES COMPARED 


BYTES XFER/ 


SEQ 90 


GLOBAL ERROR REPORT SE 


2693 


2702 


2703 
2704 


2705 
2706 


2707 


012737 
013746 


012746 


012746 
012746 
012746 
010600 


000020 003672 
050564 


066714 
000002 


000006 


002322 
066064 
000002 
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-SBTTL GLOBAL ERROR REPORT SECTION 


see 
; THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 
; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. 


BGNMSG ERR1 
ERR1:: 
MOV @CEXIT,CFLAG 
PRINTX #PCMSG,PCCALL 
MOV 
MOV 
MOV 
MOV 
TRAP 
.ADD 
DOCLN 
TRAP 
ENDMSG 
L10002: 
TRAP 
BGNMSG ERR2 
ERR2:: 
MOV R1,-CSP) 
MOV PSTYPE,R1 
ASL R1 
ADD @MSGTAB,R1 
PRINTX @EMSG35, @STRBUF 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
PRINTX #EMSG36,(R1) 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
MOV (SP)+,R1 
ENOMSG 
L10003: 
TRAP 
BGNMSG ERF”™ 
ERRS:: 
PRINIX #EMSG37,¢STRBUF 
MOV 
MOV 
MOV 
MOV 


SEQ 91 


PRINTB 
3; (BASIC) AND PRINTX CEXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


PCCALL , -( SP) 
@PCMSG, -(SP) 


CSOCLN 


C$MSG 


@STRBUF , -CSP) 
sae onal 


(R1),-CSP) 
@€MSG36, -(SP) 
#2, -CSP) 
CSPNTX 

06, SP 


CsMSG 


@STRBUF , -C SP) 
%EMSG37, -( SP) 
#2, -( SP) 

SP ,RO 
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GLOBAL ERROR REPORT SECTION 


2708 067630 PRINTX @€MSG38, OSTRBUL 


(CODE ) 
ENDMSG 


MACROS. 


ft 
~~ 
~ 
@ 
oe oe oe Ge Ge Ge Ge Ge Ge Ge Ge oF oF 


OF THE AREA TO AN ERROR CALL: 
THE CORRESPONDING MESSAGE AREA IS SET UP IN THIS SECTION: 
BGNMSG AREANAME 


THE AREAS IN THIS SECTION ARE FOR MESSAGES USED IN MORE 
TEST. USE THE PRINTB (PRINT BASIC) AND PRINTX (PRINT EXTENDED) 


TRAP 


THAN ONE 


SEQ 92 
CSPNTX 
06,SP 


@STRBU1, -(SP) 
#€MSG3S8, -( SP) 


THESE MESSAGE AREAS ARE USED TO OUTPUT SUPPLEMENTARY INFORMATION 
AFTER AN ERROR CALL. THEY ARE INVOKED BY APPENDING THE NAME 
ERRXXX 1,ERRORMESSAGE , AREANAME 


C8 


SEQ 93 
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EZ YB KPO CERNOr Whe EERE FPR 

2729 \SBTTL GLOBAL SUBROUTINES SECTION 

2730 

s75h _' NS THE SUBROUTINES 

t AL SUBROUTINES SECTION CONTAI 

$738 | THAT ARE USED IN MONE THAN One eer. 

2734 gee 

3736 es 

FUNCTIONAL DESCRIPTION: 

ose SUBROUTINE TO.... 

2738 

e741 : ITH A FUNCTIONAL 

: " ” STATEMENT WITH 

OMPLETE THE “SUBROUTINE TO....” S 

Sras ; DESCRIPTION OF THIS: SUUROUTING: 

2744 8 

ora? ; INPUTS: 

5748 

ovat ; LIST THE INPUT DATA THAT ARE EXPLICITLY PASSED TO THIS SUBROUTINE. 

2752 , 

3735 » IMPLICIT INPUTS: 

> 

ere : TLY USED BY THIS SUBROUTINE; 

T THE INPUT DATA THAT ARE IMPLICI 

Seo ; FOR EXAMPLE, DATA READ FROM COMMUN AREAS. 

2761 3 

ores : OUTPUTS: 

5765 

Sree ; LIST THE OUTPUT DATA THAT ARE EXPLICITLY GIVEN BY THIS SUBROUTINE 

2769 3 

cir ; IMPLICIT OUTPUTS: 

5773 

orre : TLY GIVEN BY THIS SUBROUTINE; 

ST THE OUTPUT DATA THAT ARE IMPLICI 

oir ; FOR EXAMPLE. DATA STORED IN COMMON AREAS. 

2778 3 

oret ; SUBORDINATE ROUTINES USED: 

2782 

oes : LIST THE SUBROUTINES CALLED BY THIS SUBROUTINE. 

2786 3 

thes ; FUNCTIONAL SIDE EFFECTS: 

2790 

ores ; THIS SUBROUTINE MAY HAVE UPON OTHER 

rth : SOOLES OF THE DEAGROSTEE PROGRAM) AN EXATOCE OF THIS Is 

2795 : THE SUBROUTINE INHIBITS ALL INTERRUPTS WITH PRIOR ‘ . 

2796 3 SAAS sists cceae: sddoddes 


2799 s CALLING SEQUENCE: 


D8 
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zone 
; 
2803 , GIVE THE EXACT CALLING SEQUENCE USED TO ACCESS THIS SUBROUTINE. 
2804 , FOR EXAMPLE: MOV COUNT,R1 sMOVE INPUT TO R1 
2805 : JSR PC, ROUTINE sGO TO ROUTINE 
2806 : Bcs ERROR sCARRY SET IF ROUTINE HAD ERROR 
t 
2809 ‘-- 
te 
3 
2813 ; INSERT THE CODE FOR THIS SUBROUTINE. THE NAME OF THE SUBROUTINE SHOULD 
2614 , BE DEFINED WITH A DOUBLE-COLON (::); THIS WILL MAKE THE SUBROUTINE GLOBAL. 
1 | SUMS AS SAAAAAAASASAAAAAS AAA AAA AA A AA SAA AAA AAIA AA dcss 
2817 
2819 3 
2820 : BEGIN EACH SUBROUTINE AT THE TOP OF A NEW PAGE. 
1 Hy 
2823 
2824 .SBTTL CLKSET CLOCK SETUP SUBROUTINE 
2825 
2826 s-ce 
2827 3 FUNCTIONAL DESCRIPTION: 
2828 ; THIS SUBROUTINE SETS UP THE CLOCK INFORMATION TABLE FOLLOWING 
2829 : A “CLOCK” CALL EXECUTED IN THE INITIALIZATION CODE. BUT SINCE 
2830 : THE “CLOCK” CALL SAYS NOTHING ABOUT AN LSI-11'S CLOCK, 
2631 ; ROUTINE IS ONLY USED IF A LINE OR P-CLOCK IS FOUND. 
HM 
2833 3 INPUTS - Ri - POINTS TO SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED 
ed 3 R2 - POINTS TO “CLK” TABLE WHERE CLOCK INFO WILL BE KEPT 
o 
2836 ; OUTPUTS - “CLKCSR” GETS LOADED WITH THE CLOCK'D CSR ADORESS 
2837 : “CLKBR” GETS LOADED WITH THE CLOCK'S INTERRUPT LEVEL 
2838 ; “CLKVEC” GETS LOADED WITH THE CLOCK'S INTERRUPT VECTOR 
2639 , “CLKHZ" GETS LOADED WITH THE LINE FREQ. CIN HERTZ) 
3 
2841 : CALLING PROCEDURE: 
eee : JSR PC, CLKSET 3 CALL CLOCK SETUP WITH R1 AND R2 SETUP 
3 
2844 —— 
2845 067656 CLKSET: 
2846 067656 012122 (R1)+,(R2)> ; LOAD CLOCK'S CSR ADOR. INTO “CLKCSR” 
2847 067660 012112 MOV CR1)+,(R2) 3 LOAD CLOCK'S INTR. LEVEL INTO “CLKBR” 
2848 067662 006312 ASL (R2) ; ADJUST THE INTR. LEVEL FOR LOADING 
2849 067664 006312 ASL (R2) : INTO THE PSW WITH A “SETVEC” CALL 
2850 067666 006312 ASL (R2) 
2851 067670 006312 ASL (R2) 
2852 067672 006322 ASL (R2)o 
2853 067674 012122 MOV (R1)+,CR2)> : LOAD CLOCK'S INTR. VECTOR INTO “CLKVEC” 
2854 067676 012122 MOV CR1)+,(R2)> 3 LOAD CLOCK'S FREQ. INTO “CLKHZ” 
2855 067700 000207 RTS PC 


E8 
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-SBTTL CLKINT CLOCK INTERRUPT SERVIDE ROUTINE 


001002 
005337 
013777 


113766 
003712 


003702 
003710 
000074 


003706 
003710 


003714 


003714 
003716 


003716 
003720 


003702 


003720 
003704 


003712 
003710 


003712 


113652 


1%: 


2s 


3%; 


4$: 


-¢* 


FUNC TIONAL ee tet 


SEQ 95 


HIS IS THE CLOCK INTERRUPT SERVICE ROUTINE WHICH TAKES CARE 
OF KEEPING THE “TIME-SINCE-START” AND COUNTING DOWN ANY OF THE 
“EVENT” TIMERS. THE TIMERS ARE USED TO TIME COMPLETION OF 
DEVICE REQUESTS. THE “TIME-SINCE-START” IS USED TO BE LOGGED 
WITH EACH ENTRY INTO THE EVENT LOG. 


IMPLICIT INPUTS - bare - THE CURRENT NC. 


OF TICKS LEFT TO BE COUNTED UNTIL 


ECONO HAS BEEN COUNTED OFF 
CLKHZ - THE NO. OF TICKS IN A SECOND, DETERMINED BY THE 


SYS. LINE FREQ. 
TIMMIN € TIMSEC - CURRENT 
MINUTES AND SECONDS 
TIMER 1,2 AND S - CURRENT 


IMPLICIT OUTPUTS - NEW VALUE OF EVENT TIMER 
IF IT WAS NON-ZERO 
NEW VALUE OF EVENT TIMER 
WAS NON-ZERO 


VALUE OF “TIME-SINCE-START” IN 
VALUES OF "EVENT TIMERS” 

"1" € "2" DECREMENTED BY 1 TICK 
"S" DECREMENTED BY 1 SECOND IF IT 


SIDE EFFECTS - THE CLOCK IS DISABLED UPON ENTRY AND REENABLED WHEN LEAVING 


CALLING PROCEDURE - THIS ROUTINE IS CALLED WHEN THE CLODK INTERRUPTS THRU 
“CLKVEC”. THE ADDRESS OF THIS ROUTINE WAS LOADED 
INTO THE CLOCK'S INTERRUPT VECTOR WITH A “SETVEC” CALL 


-@ 


BGNSRV CLKINT 


CLR @cLKCSR 
DEC TIMTCK 


3 
3 
BNE 1% 3 
MOV CLKHZ, TIMTCK 3 
INC TIMSEC 3 
CMP 060. .TIMSEC 3; SEE 
BNE 1$ 3 
INC TIMMIN 3 
CLR TIMSEC 3 
TST TIMER1 3s SEE 
BEQ es 3 
DEC TIMER1 3 
: TST TIMER?) s SEE 
BEQ 3$ 3 
DEC TIMER? 3 
TST TIMERS 3: SEE 
BEQ 43 3 
CMP CLKHZ, TIMTCK 3; SEE 
BNE 4% s BR 
DEC TIMERS 3 
MOV CLKEN, 9CLKCSR 3 


CLKINT:: 


DISABLE THE CLOCK FROM INTERRUPTING 
DECREMENT THE NO. OF TICKS/SEC 

GO CHECK TIMERS 

RESET THE NO. OF TICKS/SEC. 

INC. NO OF SECS-SINCE-START 


IF WE'VE COUNTED 60 SEC.S YET 


IF NOT, GO CHECK TIMERS 
ELSE, INC. MINUTES- SINCE - START 
AND RESTART SECOND COUNTER 


IF TIMER1 TIMING ANYTHING 


IF*0, NO, CHECK NEXT TIMER 
ELSE DECREMENT THE TIMER VALUE (BY 1 TICK) 


IF TIMER2 TIMING gy 


ELSE DECREMENT TIMER VALUE (BY 1 TICK) 


IF TIMERS TIMING ANYTHING 


IF*0, NOTHING BE TIMED, LEAVE 


IF A SECOND HAS BEEN COUNTED OFF 
IF NO 


ELSE, DECREMENT TIMER VALUE (BY 1 SEC.) 
REENABLE THE CLOCK TO INTERRUPT 
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GERAGR® REWLR NHAEAROBTSEERGEGE ROGRIAE!20°. 22 
2914 070022 ENOSRV 
070022 L10005: 
070022 000002 RTI 
2318 
2917 -SBTTL PREG14 PRESERVE REGISTERS 1 THROUGH 4 ACROSS SUBROUTINE CALLS 
2918 FSHAAHHAAHEHAAASAASEAAREADALERELELASERAASEDASEROEDEAADEEARASEEAEAEAAEEAEDHEROEREEE 
2919 s INPUTS: THE RELATIVE ADDRESS OF THE CALLED ROUTINE MUST FOLLOW THE 
Seat ; CALL TO THIS ROUTINE (SEE CALLING SEQUENCE). 
3 
2922 sOUTPUTS: -REGISTERS i THROUGH 4 ARE PRESERVED ACROSS THE CALLED ROUTINE. 
2923 : -A CHECK IS MADE TO ENSURE THE HARDWARE STACK HASN'T OVER-RUN 
ard : THE PARAMETER STACK. 
3 
2926 sCALLING SEQUENCE: THIS IS BEST HANOLED BY THE "CALL" MACRO. THE ACTUAL 
2927 3 CALL IS: 
2928 ; JSR R4 ,PREG14 
pI 3 : -WORD [SUBROUTINE NAME )-ANCHOR 
3 
2931 s COMMENTS: THIS ROUTINE IS RE-ENTRANT AND RELOCATABLE. 
ooae 3 THIS ROUTINE IS ORS COMPATIBLE. 
3 
2934 sSUBORDINATE ROUTINES CALLED: THE ROUTINE SPECIFIED IN THE CALL. 
2935 i FS SSSASASASSSSEAASASSASEAASHASAASSEADASHSSHSSHEASHAAESASHHASASEESEEHEAEREDEOEEEKEDE 
2936 
2937 3R4 IS ALREADY ON THE R6 STACK. 
2938 070024 010346 PREG14: MOV R3,-CSP) sPUSH R3, R2, R1 
2939 070026 010246 MOV R2,-CSP) 5 
Soar 070030 010146 MOV R1,-(SP) ’ 
2942 070032 010437 050564 MOV R4, PCCALL 
heyy 070036 012401 MOV (R4)+,R1 etna. RELATIVE ADDRESS OF THE CALLED 
sR 
Seat 070040 060701 ADD PC,R1 sMAKE IT AN ABSOLUTE ADDRESS. 
aod 070042 010446 ANCHOR: MOV R4,-CSP) sSAVE THE RETURN TO THE CALLING ROUTINE, 
2949 070044 020506 CMP RS,SP sCHECK FOR STACK OVER-RUN. 
2950 070046 103401 BLO is i 
cos 070050 000000 HALT sHANOLE STACK OVER-RUN CONDITION. 
2953 070052 004711 1$: JSR PC,CR1) sCALL THE SPECIFIED ROUTINE. 
2955 070054 012604 MOV CSP )+,R4 sRESTORE THE RETURN TO THE CALLING ROUTINE. 
2957 070056 012601 MOV (SP)+,R1 sRESTORE THE REGISTERS. 
2958 070060 012602 MOV (SP)+,R2 ‘ 
2959 070062 012603 MOV CSP )+,RS ; 
eet 070064 000204 RTS R4 sBACK TO THE CALLING ROUTINE. 


BREGIS. 


See eL EER ERE RS: 


UNA NI EXER 
ESERVE REGI 


012703 
012704 
005002 


CISER 
STERS 


iT 


000012 
003714 


050530 
050522 
050522 


177777 


G8 
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HROUGH 4 ACROSS SUBROUTINE CALLS 


-SBTTL WAIT 


WAIT FOR DEUNA INTERRUPT WITH TIMEOUT 


oe 
FUNCTIONAL DESCRIPTION: 


THIS SUBROUTINE WAITS FOR ONI INTERRUPTS FROM THE DEUNA 
OR REPORTS A TIMEOUT. IF A UNA INTERRUPT gs OCCURED, 
THE SUBROUTINE ERROR IS CALLED TO HANDLE IT 


SUCCESS OR FAILURE IS REPORTED VIA P1. 


INPUTS - 
NONE 
OUTPUTS - 
Pil: SUCCESS/F AILURE O=SUCCESS/ -1=FAILURE 
CALLING SEQUENCE: 
CALL WAIT 
PsPOP P1 
WAIT:: MOV #10. ,.R3 ; MOVE NO. OF COUNTS TO R3 
MOV @TIMER1 ,R4 AND TIMER TO BE USED TO R4 
CLR Re SLOCAL STATUS PARAMETER 
MOV R3,CR4) sSET NUMBER OF TICKS. (GLOBAL) 
1$: TST ERRFLG sCHECK IF ERROR OCCURED 
BNE 3$ :; BR IF YES 
TST ONIFLG sCHECK FOR ONI INTERRUPT 
BEQ es : BR IF INTERRUPT RECEIVED 
CLR ONIFLG 
BR 6% 
2s: TST (R4) sHAS TIMER EXPIRED? 
BNE 1% ; BR IF NO TO WAIT FOR INTERRUPT 
BR S$ sBR TO S$ 
33: CALL ERROR sCALL ERROR ROUTINE 
S$: MOV @-1,R2 sINOICATE FAILURE 
6%: RETURN R2 sRETURN WITH SUCCESS/FAILURE INDICATION 
-SBTTL ERROR HANDLE UNA INTERRUPT ERRORS 


t--¢ 


s FUNCTIONAL DESCRIPTION: 


THIS SUBROUTINE CHECKS THE ERROR FLAGS SET BY 
UNAISR THE INTERRUPT SERVICE ROUTINE AND PRINTS 
OUT THE APPRORIATE ERROR MESSSAGES. 

ERROR FLAGS SHOULD BE SET BY UNAISR ROUTINES. 


ERROR MESSAGES ARE PRINTED OUT TO THE OPERATOR CONSOLE. 


CALLING SEQUENCE: 


CALL ERROR 
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3021 070150 
3022 


3023 070154 
3024 070160 
3025 


3038 070254 


067460 
005337 


050530 
050514 
050512 
050526 


050514 


050512 


050526 


ERROR:: DEC 


S$: ERROF 


10$: ERROF 


158: ERROF 


DEC 
20%: RETURN 


-SBTTL UNAINI 


H8 


ERRFLG 

PCEFLG 

S$ 

FATFLG 

10$ 

BCOUNT 

153 

4,EMSGO4 ,ERR1 


20% 
1,EMSGO1,ERR1 


PCEFLG 
20% 
2,EMSGO2,ERR1 


FATFLG 
20% 
3,EMSGO3,ERR1 


BCOUNT 


INITIALIZE THE UNA 


SEQ 98 


sDECRIMENT ERROR COUNTER TO SHOW 


s_ IF YES, BRANCH 

sSEE IF UNA FATAL ERROR 

s_IF YES, BRANCH 

sSEE IF UNEXPLAINED INTERRUPT 
;_IF YES, BRANCH 

sELSE UNKNOWN ERROR 


3 EXIT 
sPORT COMMAND ERROR 


3  : : ala THAT IT WAS HANDLED 
° 
sUNA FATAL ERROR 

TRAP 


. WORD 
WORD 
; KEEP UP ON BOOK KEEPING 


3 EXIT 
sUNEXPLAINED INTERRUPT 


; BOOK KEEPING 
sRETURN 


J SSAASAAASSESSSAAASSSSESEAASESESAASESAAAESESSHHOEKEHASEEEOAEESEEEE; 


CALLED BY: 


INPUTS: 
OUTPUTS: 


3 
3 
3 
F 
3 
3 
3 
3 
3 
3 
3 
3 
3; SIDEEFFECTS: 
3 

F 


‘ 
SUBROUTINE TO 


1) SETS UNA IN THE READY STATE 
2) INITIALIZES ALL UNA GLOBAL DATA LOCATIONS 
TO DEFAULT VALUES. 


CALL UNAINI 
NONE 
NONE 


ALL GLOBAL LOCATIONS ARE ZEROED 


SHESESEEASASEEAESEESASESEASEEHA? SEASESAHHASHAEHHHASHEHEHAAAHHEHEEHREEE 


— 
EMSGO4 
ERR1 
CSEROF 
1 


EMSGO1 
ERR1 


CsEROF 
2 


EMSGO2 
ERR1 


CSEROF 
3 


EMSGO3 
ERR1 


18 
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3062 

3063 

3064 PLT UrTiririririrrririririririt rir iit 

3065 H RESET AND STOP UNA HARDWARE 3 

3066 I PAROASHERAAHAAEASAEEEDEEREREEEEEEEOEODE; 

3067 

3068 070262 013703 047632 UNAINI: :MOV PCSRO, R3 s MOVE ADDRESS OF we TO R3 

+5 44 070266 012713 000040 MOV @RSET, CR3) s HAROWARE RESET 

3071 070272 005002 CLR s LOOP COUNTER INIT 

3072 070274 011301 78: MOV (R3), R1 s READ PCSRO 

3073 070276 032701 004000 BIT @ONI, R1 s WAIT FOR COMMAND TO FINISH 

3074 070302 001006 BNE $ s BACK TIL ONI =1 

3075 070304 005 Oec Re s COUNT DOWN DELAY 

3076 070306 001372 BNE 7$ : BACK UNTIL TIMEOUT 

3077 070310 ERROF 15,EMSG15,ERR1 s PRINT ” ONI OID NOT SET FROM” 
070310 104455 TRAP CSERDF 
070312 000017 ° 15 
070314 065031 -WORD EMSG15 
070316 067460 -WORD ERRL 

sos ee Dpleagl 

or 070320 012713 004000 98: MOV @ONI, (R3) ; WRITE ONE TO CLEAR ONI 

3082 S SSOSAHESEEHEEEEEOAEEEEOEEEOEEEEEEEEEEEEE; 

3083 3 NOW ENABLE INTERRUPTS FOR THE ALL ; 

3084 H PORT COMMANDS ET AL H 

3085 FOMOAAOAEESEEEAEEEEEEEEEEEEEEEEEOEEOEOEEE; 

3087 070324 112713 000100 MOVB @INTE, (R3) ; ENABLE INTERRUPTS 

3089 PPT YY IIIT iii iii i iitritiiiirtitirit iri iS 

3090 3 LOAD ADORESS OF PCBB ; 

sone PP YI YITIYiririiiiiitiritirirititiritti iif 

3093 070330 012763 047666 000004 MOV @PCBBRO .4(R3) s LOWER 16 BITS OF ADRS 

3094 070336 005063 000006 CLR 6(R3) ; UPPER 2 

3096 070342 CALL COMAND #GETPCB 3 LOAD ADDRESS 

3097 070354 PsPOP R2 3; GET SUCCESS/FAILURE REPORT 

3098 070356 001404 BEQ 10% s CONTINUE IF OK 

3099 070360 ERROF 5,EMSGOS,ERR1 ; ELSE REPORT ERROR 
070360 104455 TRAP CSERDF 
070362 000005 «WORD 5 
070364 064415 -WORD EMSGOS 

— 070366 067460 -WORD ERR1 

3101 §906060660660660606066606060600600606000686; 

3102 070370 108: ’ INIT GLOBAL DATA : 

3103 PeYITITITitiiititiiririiriiiiitiitiiiii tit 

3104 070370 005037 047642 CLR PCSROC : INIT CONTENTS OF CUR PCSRO 

3105 070374 005037 047644 CLR PCSRiC i PCSR1 

3106 070400 005037 047646 CLR PCSR2C 3 PCSR2 

ant 070404 005037 047650 CLR PCSRSC ; PCSR3 

3109 Pe UYV IV ITI itirititiririvririitriiti iit) 


3110 : INIT RING POINTERS AND : 


J8 
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070410 
070416 
070424 
070432 


070440 
070444 
070450 
070456 
070470 
070472 


070474 
070500 
070504 
070512 
070524 
070526 


012737 
012737 
012737 
012737 


012702 
012701 
012761 


005302 
001364 


012702 
013701 
012761 


005302 
001364 


012701 


012701 
005061 
005061 
005061 


012701 


012701 
005061 
005061 


012701 
000006 


012701 
005061 
005061 


012701 


000006 
003760 
100000 


128; 


138; 


RING ENTRIES 


i 5 
FE SOHRASAHHEHESESEEESSAESEEEEEEEEEEEEEEEDE; 


MOV @XRING , XRGCUR 
MOV @XRING , XRGNXT 


CALL GETXNX  XRGCUR 
DEC R2 
BNE 128 


MOV @NnO.NTR,R2 

MOV RRGCUR ,R1 

MOV #100000 ,4(R1) 
CALL aaa @RRGCUR 


R 
BNE 13% 


J SSAHAASSESSHSHASKASEHEDESASASESSESEDESE; 


3 CLEAR UP ALL PCB ANDO UCB, 
: SET BACK TO DEFAULT VALUES 


J SOSASHHHSHSSSHHAAHASESEEEEEEKEEEEEEEEES; 


MOV @$RODE, R1 
CLR 2(R1) 
CLR 4(R1) 
CLR 6(R1) 


MOV @$ROPH, R1 


MOV @$WOPH, R1 


MOV @$RORN, R1 


CLR 6(R1) 

v #UCB10, R1 
-REPT 6 
LR C(R1)+ 
-ENOR 


MOV @$WORN, R1 


MOV @$ROCN, R1 


SEQ 100 


SET POINTERS TO BEGINING OF RING 


RESET OWNERSHIP AND STATUS OF 
RING ENTRIES 
FOR TRANSMIT RING... 


..-AND RECIEVE RING 


READ DEF PHY ADDR PCB 


READ CURRENT PHY ADOR PCB 


WRITE CURRENT PHY ADDR PCB 


READ RING FORMAT 


RING ENTRIES: 
INIT TO O 


WRITE RING FORMAT 


READ COUNTERS 
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INITIALIZE THE UNA 


070664 


070670 
070674 
070700 
070702 
070704 


070706 
070712 


070716 
070722 
070726 
070732 


070736 
070742 
070746 
070752 


070756 
070762 
070766 
070772 


070776 


071012 


071016 
071022 


071074 


071076 
071110 
071112 
071114 
071114 
071116 
071120 


005061 


012701 
012702 
00502 


012701 
005061 


012701 
005061 


012701 
005061 
005061 
005061 
012701 
005061 
005061 
005061 


012701 


148; 


158: 


CLR 


K8 


@ucBl2, Ri 
Re 


@sCLRC, Ri 
4(R1) 


@$ROMO, R1 
2c(R1) 
4(R1) 
6(R1) 


@sWOMO, R1 
@s$ROST, R1 


@sCLRS, R1 
2(R1) 
4(R1) 
6(R1) 


NIRCNT 
+ ty @WORNGS 


1S$ 
16,EMSG16,ERR1 


COMAND @STRT 
R2 


20% 
7,EMSGO7,ERR1 


FUNCT ORDPHYA 
R2 


25% 
6,EMSGO6 ,ERR1 


SEQ 101 


COUNTER ENTRIES 


CLEAR COUNTERS 


READ MODE 


WRITE MODE 


READ STATUS 


READ AND CLEAR STATUS 


CLEAR BUFFERS RECEIVED COUNTER 
WRITE DESCRIPTOR RINGS 
CHECK FOR ERROR 
IF OK, CONTINUE 
ELSE REPORT ERROR 
TRAP CSEROF 


«WORD 16 
-WORD EMSG16 
-WORD ERR1 


PUT UNA _IN RUNNING STATE 

CHECK FOR ERROR 

IF OK, CONTINUE 

ELSE REPORT ERROR 
TRAP CSEROF 
«WORD 7 
-WORD EMSGO7 
-WORD ERR1 


READ UNA PHYSICAL ADDRESS 

CHECK FOR ERROR 

IF OK, CONTINUE 

ELSE, REPORT ERROR 
TRAP CSERDF 
-WORD 6 
-WORD EMSGO6 


OARINE 
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071122 


071124 
071130 
071134 
071136 
071140 


071142 


071144 
071144 
071146 
071150 


071152 
071154 


071160 


071162 
071166 
071172 
071176 
071202 


071206 


3252 071210 
3254 071214 


071216 
071222 


071224 
071230 


071232 
071236 


071240 


071244 
071250 


067460 
012701 


011114 


010146 
010246 
010346 


005003 
013701 


011103 
012137 
012137 
012137 
011137 
013701 


000303 
110361 


000303 
032703 
001403 


005237 
000443 


032703 
001402 


005237 


032703 
001402 


047670 
047762 


050514 


25%: 


. SBTTL 


ae 
° 


UNAISR: : 


10$: 


20%: 


L8 


@PCBBe, R1 
@PHYADR, R4 
CR1)+,CR4)>+ 
CR1)+,CR4)¢ 
CR1),CR4) 


SEQ 102 


«WORD ERR1 
s STORE PHYSICAL ADDRESS 
: MOVE FIRST TWO BYTES 


s AND SECOND TWO 
s AND DONE 


UNAISR UNA INTERRUPT SERVICE ROUTINE 


THIS INTERRUPT ROUTINE WILL BE THE ONLY INTERRUPT ROUTINE 
WHICH THE UNA HARDWARE WILL VECTOR TO UPON HARDWARE INTERRUPT. 


THE REASON FOR SUCH INTERRUPTS ARE TO BE DETERMINED 
FROM THE APPROPRIATE BITS IN THE PCSRO. 


IN ADDITION ALL WRITE ONE TO CLEAR BITS OF THE PCSRO 


ARE CLEARED FROM THIS ROUTINE. 


R3 

PCSRO,R1 
C(R1),R3 
(R1)+,PCSROC 
C(R1)+,PCSR1IC 
C(R1)+,PCSR2C 
CR1),PCSR3C 
PCSRO,R1 

R3 

R3,1¢€R1) 


R3 
@SERI!FATI,RS 
10$ 

FATFLG 

90$ 

oPCEI,R3S 

20% 


PCEFLG 
ORXI,RS 
30% 


sSAVE R1 
Seve 
Bees 


sSETUP WRITE 1 TO CLR MASK 
sGET PCSRO ADDRESS 


sAND ITS CONTENTS 
sSAVE PCSR'S FOR DEBUG 


sREORIENT CONTENTS OF PCSRO 
sWRITE ONE TO CLEAR 

; ONLY CLEAR UPPER BYTE 
sREORIENT CONTENTS OF PCSRO 


sANY FATAL STATUS ?? 
;SET FLAG 


sEXIT 


— COMMAND ERROR INTERRUPT? 
3 


sYES, INCREMENT FLAG 
;RECV INTERRUPT ?? 
3NO 


ONAISR 


DEUNA N 


UNA INTER 
? 071252 


071256 
071262 
071264 


071270 
071274 
071276 


071310 
071314 


071350 
071350 
071352 
071356 
071362 
071370 


005237 
032703 
001402 
005037 


032703 


052701 
010177 


RUPT SERVICE R 


050516 
010000 
050520 
004000 
050522 
002000 
050524 
034000 
142000 


050526 
050530 


000100 
156250 


M8 
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INC NIRCNT 


30$; BIT @TXI,R3 
BEQ 40$ 
CLR XFLAG 
40$: BIT @ONI RS 
BEQ 45 


& 
INC ONIFLG 
4S$: BIT @RCBI,RS 
BEQ S0$ 
INC RBFCNT 


SO$: BIT @RXI!TXI!ONI,RS 
90$ 


SEQ 103 


sYES, SET FLAG 

s TRANSMIT INTERRUPT 77? 

rYES, SET FLAG 

sCOMMAND DONE ?? 

YES, COUNT EACH ONI 

sRECIEVE BUFFER UNAVAILABLE? 
tNCOUNT THEM 

sCHECK FOR NON-ERROR INTERRUPT 


BNE sEXIT IF ONE OCCURED 
BIT @SERT!PCEI!RCBI,RS sCHECK FOR ERROR INTERRUPT 
BNE 80$ sIF ONE OCCURED, INCR. ERRFLG 
INC BCOUNT sELSE, NONSENSE INTERRUPT 
80$: INC ERRFLG 
90$; MOV (SP)+,R3 sRESTORE REGISTERS 


MOV C(SP)+,R2 
MOV CSP)+,R1 


sRESTORE REGISTERS 
sRESTORE REGISTERS 
sAUF WIEDERSEHEN 


-SBTTL COMAND SUBR TO ISSUE A UNA PORT COMMAND 


--¢ 


FUNCTIONAL DESCRIPTION 


THIS SUBROUTINE ISSUES A UNA PORT COMMAND. ERRORS 
ARE HANOLED BY THE SUBROUTINE ERROR AND REPORTED IN 
P2 IF ONE OCCURED. 


INPUTS - Pl - THE UNA PORT COMMAND MNEMONIC OF THE 
DESIRED COMMAND. 
OUTPUTS - Pe - SUCCESS erg HF CONTAINS 0 FOR SUCCESS 


-1 IF A UNA ERROR OCCURED. THIS PARAMETER 
IS PASSED DIRECTLY FROM THE WAIT 
ROUTINE AND IS UNTOUCHED BY COMAND. 


CALLING PROCEDURE - CALL COMAND &<COMMAND TYPE> 
SIDE EFFECTS - IF AN ERROR HAS OCCURED, THE ROUTINE ERROR WILL 


BE CALLED. 
REGISTER USAGE - R1 CONTAINS THE COMMAND TYPE. 


--¢+ 


COMAND: : 
P$POP R11 sMOVE COMMAND TYPE TO R1 
BIS #INTE,R1 ;ADD INTERRUPT TO COMMAND 
MOV R1,@PCSRO sMOV COMMAND TO PCSRO 
CALL WAIT sWAIT FOR DONE INTERRUPT 
10$: RETURN ;sRETURN - ERROR INFO STILL ON 


; PARAMETER STACK FROM WAIT SUB. 


N8 
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FENCT®® S6RN TO: BEREGRACA UNA PORT FUNCTION 
$32? .SBTTL FUNCT SUBR TO PERFORM A UNA PORT FUNCTION 
2 
3329 
3330 t--+ 
3331 ; FUNCTIONAL DESCRIPTION: 
3332 ; THIS SUBROUTINE PERFORMS A UNA PORT FUNCTION. THE 
3333 ; FUNCTION SPECIFIC PCB IS MOVED INTO THE UNA PCB. 
3334 ; 
3335 ; INPUTS - P1 - THE UNA PORT FUNCTION MNEMONIC OF THE 
3336 ; DESIRED FUNCTION. 
3337 ; OUTPUTS - P2 - SUCCESS REPORT. CONTAINS O FOR SUCCESS 
3338 ; -1 IF A UNA ERROR OCCURED, 
3339 ; THIS PARAMETERIS PASSED DIRECTLY FROM THE 
3340 ; COMAND SUB AND IS NOT AFFECTED BY FUNCT. 
341 H 
3342 ; CALLING PROCEDURE - CALL FUNCT @<FUNCTION TYPE> 
3343 ; SIDE EFFECTS - a me | — HAS OCCURED, THE ROUTINE ERROR WILL 
3344 ; 
3345 ; REGISTER USAGE - R1 CONTAINS THE FUNCTION TYPE, WHICH IS TRANSFORMED 
3346 : TO THE ADDRESS OF THE FUNCTION SPECIFIC PCB. 
3347 ; R2 CONTAINS THE ADDRESS OF THE UNA PCB. 
3348 ; 
3349 3--+ 
3350 
3351 071372 FUNCT:: P$POP R1 ; GET FUNCTION TYPE INTO R1 
3352 071374 006301 ASL R1 ; MULTIPLY BY TWO 
3353 071376 062701 047676 ADD OF UNTAB,R1 ; ADD FUNCTION TABLE OFFSET 
3354 ; R1 NOW CONTAINS ADDRESS OF ADDRESS 
3355 ; OF FUNCTION SPECIFIC PCB 
3356 071402 012702 047666 MOV @PCBBO, R2 ; PU UNA PCB INTO R2 
3357 071406 011101 MOV (R1),R1 ; PUf ADDRESS OF PCB INTO R1 
3358 071410 012122 MOV CR1)+,CR2)+ ; MOV PCB'S 
3359 071412 012122 MOV CR1)+,CR2)+ ; MOV PCB'S 
3360 071414 012122 MOV CR1)+,CR2)+ ; MOV PCB'S 
3361 071416 012122 MOV CR1)+,CR2)+ ; MOV PCB'S 
3362 071420 CALL COMAND @GETFNT ; ISSUE GET PORT FUNCTION COMMAND 
3365 071432 RETURN ; SUCCESS INFO FROM COMAND SUBROUTINE 
3365 ; IS STILL ON PARAMETER STACK 
$366 -SBTTL XMIT TRANSMIT UNA PACKETS 
3368 goes 
3369 ; FUNCTIONAL DESCRIPTION: 
3370 ; THIS SUBROUTINE SETS UP THE TRANSMIT DESCRIPTOR 
3371 ; RING ENTRIES AND ISSUES A POLL DEMAND COMMAND TO 
3372 ; THE UNA, 
3373 ; 
eds ; INPUTS - NONE 
; 
a576 ; OUTPUTS - P1 - SUCCESS REPORT. 0 FOR SUCCESS, -1 FOR FAILURE 
; 
3378 ; CALL PROCEDURE - CALL XMIT 
he ; PSPOP P1 
3 
3381 ; SIDE EFFECTS - THE RING POINTER XRGNXT WILL BE UPDATED TO POINT THE NEXT 
3382 ; AVAILABLE ENTRY AFTER THE TRANSMIT OPERATION. 
Hy 
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T UNA PACKET 


001125 
013714 


052764 
012737 


050534 


050566 
101400 


003716 


000004 
050520 


050534 


B9 


SEQ 105 


: REGISTER USAGE - R1 POINTS TO TIMOUT TIMER LOCATION 
F Re IS USED AS A POINTER IF RETRYS IS SET 
3 R3 IS USED TO PASS THE SUCCESS/FAILURE MESSAGE BACK 
1 R4 IS USED AS A POINTER TO RING ENTRIES OR STATUS INFO. 
t--? 
XMIT:: CLR RETRYS 
18: MOV XRGCUR ,R4 s MOVE RING ENTRY LOCATION INTO R4 
BIT @OWN ,, 4(R4) s MAKE SURE WE OWN THIS 
BNE 40% s ELSE, BOOKKEEPING ERROR 
MOV BUFLEN, (R4) s MOVE BUFFER LENGTH ys B _ WORD OF 
3 NEXT AVAILABLE RING E 
BIS @OWN!STPIENP ,.4(R4) 3 SET OWNERSHIP, START py END OF PACKET BITS 
208: MOV @1,XFLAG 1 SET TRANSMIT FLAG 
CALL COMAND @&PDMO s ISSUE POMD COMMAND 
PsPOP RS 3 CHECK FOR ERRORS 
BNE 508 3 IF YES, EXIT 
228: MOV @TIMER? ,R1 s SET UP TO WAIT FOR TRANSMIT TO COMPLETE 
MOV #100,(R1) 
238: TST XFLAG 3 SEE IF TRANSMIT DONE BIT SET 
BEQ 24% s IF SET. SKIP WAIT LOOP 
TST CR1) s ELSE, SEE IF TIMEOUT YET 
BNE 23% 3 NO, WAIT 
BR 453% 3 YES, EXIT 
248: BIT @OWN,4(R4) 3s SEE WHO OWNS THIS ENTRY 
BNE 408% 3 IF UNA STILL OWNS THIS, SOMETHINGS WRONG 
BIT @ERRS ,4(R4) 3s SEE IF ANY ERRORS 
BNE 308 s IF YES, BRANCH AND TAKE CARE OF THEM 
268: CALL GETXNX @XRGCUR 3 UPDATE “TRANSMIT RING CURRENT” POINTER 
CLR R3 3 ge gy SUCCESS 
CMP XRGCUR , XRGNXT 3 SEE IF CURRENT POINTER = NEXT POINTER 
BNE 42% : IF NO, ERROR 
BR 55% 3 RETURN 
308: BIT @DEF !ONE ! MORE , 4(R4 ) : WAS MESSAGE STILL ad 
BNE $ s If YES, GO TO NEXT ONE 
BIT @RTRY ,6CR4) 3 ELSE, OIO UNA GIVE UP AFTER 16 TRIES 
BEQ 328 a IF NOT, FATAL DEVICE ERROR, EXIT 
INC RETRYS 3: IF YES, KEEP ag! OF THE 
CMP @3,RETRYS 5 GIVE UP AFTER 3 TIMES 
BMI 26% s ELSE, SET UWP TO RETRANSMIT 
CALL GETXNX @XRGCUR 3 UPDATE POINTERS 
CALL GETXNX @XRGNXT : 
MOV 2(R4),R2 s SET UW TO COPY DATA BUFFER 
MOV XRGCUR, R4 s Re POINTS TO OLD BUFFER 
MOV 2(R4), R3 s R3 POINTS TO NEW BUFFER 
MOV BUFLEN, Ra s R4& COUNTS NUMBER OF BYTES TO COPY 
318: + CR2}+,(R3)¢ s COPY DATA 
BNE 318 s WAVE WE COPIED ALL OF IT 
BR 1$ s IF YES, TRY AGAIN 
328: ERRDF 9,EMSGO9,ERR1 : ELSE, FATAL DEVICE ERROR 
TRAP CsEROF 
-WORD 9 
. WORD EMSGO9 
.WORD ERR1 
BR 508 3 EXIT 
408: ERROF 10,EMSG10,ERR: 3 TRANSMIT RING BOOKKEEPING ERROR 


3 
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071726 104455 TRAP = CSEROF 
071730 000012 .WORD 10 
071732 064656 -WORD €EMSG10 
071734 067460 -WORD = ERR1 

3437 071736 000413 BR 508 
3438 071740 42%: ERROF 12,€MSG10,ERR1 s BOOKKEEPING ERROR, XRGNXT SHOULD = XRGCUR 
071740 104455 TRAP —_ CSEROF 
071742 000014 -WORD 12 
071744 064656 -WORD €MSG10 
071746 067460 -WORD = ERR1 
3439 071750 0004 eR 508 
3440 071752 005237 050532 45%: ‘INC TIMOUT 
3441 071756 ERRHRD 8,EMSGO8,ERR1 s REPORT ERROR 
071756 104456 TRAP = CSERHRO 
071760 000010 .WORD 8 
071762 064553 “WORD EMSGOS 
071764 067460 -WORD = ERR1 
3442 071766 012703 177777 50s: MOV @-1,R3 s ERROR INDICATOR 
3443 071772 55$: RETURN R3 + RETURN 
3444 
3445 .SBTTL RECEVE RECEIVE UNA RING BUFFERS 
3447 t--° 
3448 + FUNCTIONAL DESCRIPTION 
3449 , THIS SUBROUTINE TAKES INCOMING DATA BUFFERS FROM 
3450 , THE UNA AND CHECKS FOR ERRORS. THIS PROCESS CONTINUES 
$451 ; FOR ALL PENDING BUFFERS. 
$ 
3453 s INPUTS - NONE 
3434 : OUTPUTS - Pi - THE NUMBER OF PACKETS HANDLED BY THIS CALL TO RECEVE 
4 
3456 ; CALLING PROCEDURE - CALL RECEVE 
3457 ; PsPOP PI 
q 
3459 ; SIDE EFFECTS - THE POINTERS RRGCUR AND RRGNXT ARE UPDATED. 
3460 a 
3461 ; REGISTER USAGE - R1 IS USED TO HOLD CURRENT PACKET STATUS INFORMATION 
3462 : R2 COUNTS THE NUMBER OF PACKETS HANDLED 
3463 : R4 POINTS TO THE RING DESCRIPTOR ENTRY 
3464 3 
3465 ae 
3466 
3467 071776 RECEVE: : 
3468 071776 cL R2 : CLEAR PACKETS HANOLED COUNTER 
3469 072000 005737 050516 18: TST NIRCNT : SEE IF ANY PACKETS TO RECEIVE 
3470 072004 001476 BEQ 608 s IF NO, EXIT 
3471 072006 013704 003760 MOV RRGCUR ,R4 s MOVE CURRENT RECEIVE RING POINTER TO R4 
3472 072012 016401 000004 MOV 4(R4),R1 : MOVE STATUS OF PACKET TO R1 
3473 072016 012764 100000 MOV #100000, 4(R4) + RESET RING DESCRIPTOR 
3474 072024 032701 100000 BIT GOWN, R1 + SEE WHO OWNS THIS BUFFER 
3475 072030 001060 BNE 453 : IF STILL OWNED BY UNA, ERROR 
3476 072032 016403 000002 MOV 2(R4),R3 ; MOVE BUFFER ADDRESS INTO R3 
3477 072036 016303 000014 MOV PROTOT(R3),R3 : MOVE PROTOTYPE INTO R3 
3478 072042 020337 050544 CHP R3,PROTOO 1 SEE IF IT IS AN ACCEPTABLE PROTOCALL TYPE 
3479 072046 001420 BEQ 108 + IF YES, CONT. 
3480 072050 020337 050546 CMP R3,PROTO2 + ELSE CHECK OTHER GOOD TYPE 
3481 072054 001415 BEQ 10$ i IF OK, CONT. 


D9 
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050516 
040000 
050536 


052631 
000001 


5%: 


108: 


208: 
258: 


RETURN 


GETRNX @RRGCUR 
Ge TeNY @RRGNXT 
NIRCNT 


20 
RCVERR 
@RECERR 


S$ 

RCVBUF 

R2 

NIRCNT 

GETRNX @RRGCUR 


60% 
11,EMSG11,ERR1 


Re 


SEQ 107 


ELSE, THROW OUT AND UPDATE 
SURRENT NEXT POINTERS 
exit MENT RECEIVE COUNTER 
SEE IF ANY ERRORS 
FOR NO ERRORS BR T 


O 20% 
ELSE, INCREMENT RECEIVE ERROR COUNTER 
PRINT ERROR MESSAGE 


MOV #1,-(SP) 


MOV @RECERR, -( SP) 


ADD 
UPDATE POINTERS AND RETURN 
INCREMENT GOOO BUFFERS RECEIVED COUNTER 
KEEP COUNT OF HOW MANY BUFFERS RECEIVED 
KEEP BOOKKEEPING IN ORDER 
UPDATE “RECEIVE RING CURRENT” POINTER 


RECEIVE RING BOOKKEEPING ERROR 


TRAP CSEROF 
-WORD 11 
-WORD EMSG11 
WORD 1 


om ERR 
RETURN WITH NUMBER OF ENTRYS HANDLED 


=? 
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072206 
072320 


072322 
072332 
072334 
072336 
072356 


072362 
072364 


072366 
072370 


072406 


‘ 
' 
* 


LOCODST: 
SOURCE : 


EDPACK: 


9%; 


SEQ 106 
EDPACK ETHERNET DATA PACK 
THIS ROUTINE WILL CONVERT A STRING OF HEX CHARACTERS INTO A RIGHT 
JUSTIFIED BINARY STREAM (WITH LEADING ZEROS), COMPATIBLE WITH 
ETHERNET CONVENTIONS. THE SOURCE STRING MUST BE FORMATTED USING 
EITHER A WORD BY WORD HEX DESCRIPTION OR A BYTE BY BYTE HEX 
DESCRIPTION. THE RETURNED STRING WILL BE BYTE ORIENTED AS 
REQUIRED BY THE ETHERNET: 
LO-BYTE-WORDO HI-BYTE-WORDO LO-BYTE-WORD1 HI-BYTE-WORDI, ETC. 
INPUT ARGUMENTS Pi - ADORESS OF THE SOURCE (HEX) STRING 
TO BE CONVERTED TO A BINARY STREAM. 
P2 - ADDRESS OF THE DESIRED DESTINATION 
BUFFER WHICH WILL ACCEPT BINARY DATA 
PS - ran CIN BYTES) OF THE DESTINATION 
EXPLICIT OUTPUTS P4 - ZERO IF SUCCESSFUL, -1 IF BUFFER TOO 
LONG OR ODD NUMBER OF HEX CHARACTERS 
IMPLIED OUTPUTS THE BUFFER AT P2_ WILL CONTAIN A RIGHT 
JUSTIFIED BINARY STREAM W/ LEADING ZEROS 
AND CORRESPONDING TO HEX STRING AT RS. 
SUBORDINATE PROCEDURES HXFORM. (STRIP NONHEX CHARACTERS) 
HEXBIN. (HEX TO BINARY CONVERSION) 
CALLING PROCEDURE CALL _EDPACK P1,P2,P3 s INPUT P1-P3 PARAMETERS 
PsPOP P4 sOUTPUT P4 PARAMETER 
-BLKB 874, 3MAX NUMBER OF CHARACTERS THAT MAY BE ENTERRED 
. WORD sSOURCE ADDRESS 
PSPOP SOURCE ,R4,R3 3R4-DESTINATION, R3-NUMBER OF CHARS RQO 
sSOURCE-SRC ADDRESS, ORIENT-WORD/BYTE? 
CLR Re sASSUME NO ERRORS, VALUE RETURNED 
ASL R3 sNUMBER OF CHARACTERS REQUIRED W/ “O”"S 
CALL HXFORM SOURCE, OLOCOST RS 
PSPOP R1,R2 sR1*ADORESS OF LAST CHAR 
sR2°SUCCESS/FAIL CODE (0/-1) 
TsT R2 3R1 WILL POINT TO RIGHTMOST CHARACTER 
BNE 98 sRIGHT JUSTIFY BUFFER 
sCONVERT HEX AT LOCOST TO BINARY 
ASR R3 3R3 BYTES IN OUTPUT BIT STREAM 
CALL HEXBIN @LOCOST,R4,R3 
RETURN R2 s;RETURN WITH SUCCESS/FAILURE INDICATION 
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HEX FORMAT ROUTINE 


072412 
072414 


072424 
072426 


072432 
072434 


072440 
072442 
072446 
072450 
072454 
072456 
072462 
072464 
072470 


072472 
072474 


072476 
072500 


010204 
063704 


112301 
142701 


001405 


072412 


177777 


--6¢ 


t--- 
HXN: 
HXF ORM: 


2$: 


4$: 


6%: 
7%: 


HXF ORM 


SEQ 109 


HEX FORMAT ROUTINE 


THIS ROUTINE WILL ACCEPT A HEX STRING, AND STRIP OUT THE NON-HEX 
CHARACTERS (WITHOUT FLAGGING AN ERROR FOR THE NON-HEX CHARACTERS). 


A NULL WILL BE LEFT AS 


INPUT ARGUMENTS 


EXPLICIT OUPUTS 


IMPLICIT OUTPUTS 
CALLING PROCEDURE 


. WORD 
PsPOP 


R3,R2,HXN 


R2,R4 
HXN,R4 


CR3)+,R1 
#200,R1 
4% 

R1, 060 
6% 
R1,¢72 
as 
R1,0101 
6% 
#106,R1 
6$ 


R1,CR2)> 
93 


THE END OF STRING DELIMITTER. 


ADORESS OF THE ee antuat STRING (NULL 

DELIMITTER AT ENO OF STRING) 

ADDRESS OF THE DESTINATION ASCII HEX STRING 

(STRIPPED OF NON-HEX AND RIGHT JUSTIFIED) 

THE NUMBER OF HEX CHARACTERS DESIRED aR4 
€ OF THE LAST 


THE SUCCESS/FAILURE (0/-1) INDICATOR 


THE BUFFER AT R4 WILL CONTAIN FORMATTED 
HEX CASCII) STRING. 

CALL HXFORM P1,P2,P3 

PSPOP P4,PS 


sADDRESS OF SOURCE STRING 
sADORESS OF DESTINATION STRING 
sNUMBER OF HEX CHARACTERS DESIRED 


sDESTINATION ADORESS, R2: DESTINATION POINTER 
sPOINT TO END OF OUTPUT BUFFER (DESTINATION) 
300 WHILE NO NULL FOUND IN SOURCE STRING 

sGET BYTE IN QUESTION CE POINT TO NEXT BYTE) 
sENSURE HI BIT IS LO (SEVEN BIT ASCII) 

sCHECK FOR VALID HEX CHARACTER 

sTHE NULL IS A VALID CHARACTER (BUT THE LAST) 
sIF GREATER THAN “O” THEN RANGE OK 

36$-OUT OF RANGE, BYTE VALUE TOO SMALL 

sIF BYTE IS LESS THAN 72 AND >*60 THEN RANGE OK 
sRANGE OK IF >=60 AND <72 ELSE, CONTINUE CHECK 
sBYTE MUST BE >=101 TO CONTINUE CHECK 

sIF BYTE >71 ANDO <101 THEN BYTE OUT OF RANGE. 
sBYTE MUST BE <*106 TO BE OK, ELSE: NOT OK. 
:BYTE NOT OK, DON'T PLACE THIS BYTE IN OUTPUT. 
sPLACE THE HEX BYTE IN THE OUTPUT BUFFER. 

sBYTE IN RANGE. CONFIRMED. BYTE OK. POINT TO 
sNEXT BYTE DEST ADDRESS. [F NULL, THEN EXIT. 
s(NO ERRORS) 

sIF NOT NULL, THEN CHECK FOR BUFFER OVERFLOW. 
sR4 POINTS TO LAST CHARACTER POSITION (OUTPUT) 
sR2 - PRESENT WRITE ADDRESS 

sCSHOULOD BE POSITIVE RESULT OR 0) (MORE TO DO) 
sSET ERROR CONDITION CEXIT WITH ERROR) 

sERROR DETECTED EXIT PATH -> (TOO MANY CHARS) 


sSUCCESSFUL EXIT PATH 


G9 


UA po DEUNA NI ohne BaG ihe DIAG MACRO M1200 22-MAR-84 10:53 PAGE 15-1 SEQ 110 
3607 072510 005302 98: DEC Re sPOINT TO THE LAST ACTUAL CHARACTER AT DEST BFR 
3608 O72512 020402 CMP R4,R2 sCHECK FOR MINIMUN OF 12 CHARACTERS. 

3609 072514 001372 BNE 7$ sBRANCH IF LESS THAN 12, ERROR. 

3610 072516 005004 CLR R4 sINOICATE SUCESS 

3611 072520 118: RETURN R2,R4 sADDRESS OF LAST CHARACTER (R2) IS P4 
3612 ;ERROR INDICATOR (R4) IS PS 


H9 


CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 16 SEQ 111 
HEXBIN HEX TO BINARY EsevERS TON 
3618 --6 
tH 3 HEXBIN HEX TO BINARY CONVERSION PROCEDURE 
3 
3621 3 THIS PROCEDURE WILL CONVERT A STRING OF HEX CASCII) CHARACTERS 
3622 3 DIRECTLY TO A BINARY STREAM. THE DESTINATION BINARY STREAM WILL 
3623 3 REQUIRE ONLY HALF AS MANY BYTES AS THE HEX STRING BECAUSE TWO 
ay 3 HEX CHARACTERS ARE REQUIRED TO REPRESENT A SINGLE BINARY BYTE. 
a 
3626 3 INPUTS P1 - SOURCE STRING ADDRESS (DELIMITTED BY A NULL) 
3627 3 P2 - DESTINATION ADDRESS FOR THE BINARY DATA. 
3628 3 P3 - THE NUMBER OF BINARY erres _— CHALF THE 
3629 F NUMBER OF CHARACTERS AT P1. 
3630 3 OUTPUTS NO EXPLICIT OUTPUTS 
3631 3 IMPLIED OUTPUTS THE BUFFER AT P2 WILL CONTAIN THE BINARY 
3632 3 STREAM, CONVERTED DIRECTLY FROM THE BUFFER 
3633 3 AT Pl. 
3634 3 SUBORDINATE PROCEDURES NONE 
Seas 3 CALLING PROCEDURE CALL HEXBIN P1,P2,P3 
eles 
3637 072526 000000 HN: . WORD 
3638 072530 060 061 062 CMPSTR: .ASCIZ /0123456789ABCDEF / 
072533 063 064 065 
072536 066 067 070 
072541 071 101 102 
072544 103 104 105 
072547 106 000 
fared EVEN 
3641 072552 HEXBIN: PSPOP R1,R2,HN sR1=SOURCE STRING ADORESS 
3642 sR2=DESTINATION STRING ADDRESS 
994 sHN=NUMBER OF BYTES REQUIRED 
Seek 072562 060237 072526 ADO R2,HN sHN NOW POINTS TO THE LAST_BYTE_POSITIONe1 
3647 072566 012704 072530 18: MOV OCMPSTR,R4 sPOINTER IN THE COMPARE STRING 
3648 072572 121124 2s: CMPB CR1),CR4)> sCOMPARE CURRENT CHAR WITH A CHAR IN CMPSTR 
3649 072574 001376 BNE 2s sREPEAT UNTIL CHARACTER ro IN LIST 
3650 072576 1 INC R1 sPOINT TO THE NEXT ASCII BYTE 
3651 072600 162704 072531 Su8 @CMPSTR+1,R4 3R4 NOW CONTAINS THE ACTUAL BINARY VALUE FOR 
3652 ;THE NIBBLE DESCRIBED BY THE CURRENT BYTE. 
3653 sNOTE: NIBBLE IS THE HI PORTION OF THE BYTE 
3654 072604 006304 ASL R4 sMOVE NIBBLE TO THE HI END OF THE BYTE 
3655 072606 006304 ASL R4 
3656 072610 006304 ASL R4 
3657 072612 0063504 ASL R4a 
aed 072614 010403 MOV R4,R3 sSAVE THE HI NIBBLE 
3660 072616 012704 072530 MOV @CMPSTR,R4 sPOINTER INTO COMPARE STRING 
3661 072622 121124 3%; CMPB CR1),CR4)> sCOMPARE CURRENT CHAR WITH A CHAR IN CMPSTR 
3662 072624 001376 BNE 33 sREPEAT UNTIL MATCH FOUND IN CMPSTR LIST 
3663 072626 005201 INC R1 sPOINT TO THE NEXT ASCII BYTE 
3664 072630 162704 072531 SUB OCMPSTR+1,R4 3R4 NOW CONTAINS THE ACTUAL BINARY VALUE FOR 
3665 3; THE NIBBLE DESCRIBED BY THE CURRENT BYTE. 
3666 sNOTE: NIBBLE IS THE HI PORTION OF THE BYTE 
3667 072634 050403 BIS R4,R3 sNOW THE TWO CHARACTERS HAVE MADE A SINGLE BYTE 
3668 sNOW PLACE THE COMPLETE BYTE IN THE DESTINATION 
3669 072636 110322 MOVB R3,CR2)>+ s;ANO POINT TO THE NEXT DESTINATION BYTE 
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XBIN HEX TO BI ONVERS 

3670 072640 020237 072526 CMP R2,HN sIF THE DESTINATION POINTER [(R2] REACHES THE 

3671 072644 100750 BMI i$ sLAST CHARACTER POSITION+1 [HN] THEN DONE. 

1 072646 RETURN sRETURN TO CALLER 

3674 


JI 
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SEQ 113 
BINHEX BINARY TO HEX CONVERSION PROCEDURE 


3680 
3681 gcc 
aees 3 BINHEX BINARY TO HEX CONVERSION PROCEDURE 
F 
ref 3 THIS PROCEDURE WILL CONVERT A BINARY DATA STREAM INTO A HEX STRING. 
3 
3686 3 INPUTS - Pi- BINARY DATA BUFFER ADDRESS 
3687 3 P2- NUMBER OF BYTES IN THE BUFFER 
3688 3 P3- ADDRESS OF OUTPUT BUFFER FOR HEX STRING. 
3689 3 HEX CHARACTER PAIRS SEPERATED By “-"’ 
3690 3 CNOTE: THIS BUFFER MUST BE AT LEAST 3eP2 BYTES LONG) 
3691 3 OUTPUTS - NONE 
3692 3 IMLICIT OUTPUTS THE BUFFER AT P3 WILL CONTAIN THE HEX STRING 
3693 3 FOLLOWED BY A NULL CHARACTER. 
3694 F SUBORDINATE ROUTINES NONE 
bean 3 CALLING PROCEDURE CALL BINHEX P1,P2,P3 
gcee 
3697 072650 060 061 062 HEXC -ASCII /0123456789ABCDEF / 
072653 063 064 065 
072656 066 067 070 
072661 071 101 102 
072664 103 104 105 
072667 106 
sted 072670 000000 LST: . WORD 
3700 072672 BINHEX: PSPOP R1,LST,R2 :R1 HAS THE INPUT BUFFER ADDRESS 
3701 3LST: HAS THE NUMBER OF BYTES IN INPUT BUFFER 
3702 sR2 HAS THE OUTPUT BUFFER ADDRESS 
3703 072702 060137 072670 ADD R1,LST 3LST IS NOW ADDRESS OF LAST SOURCE BYTE + 1 
3704 072706 112103 1$ MOVB CR1)+,R3 sGET THE CURRENT BYTE AND POINT TO NEXT BYTE 
3705 072710 110304 MOVB R3,R4 sSEPARATE NIBBLES AND GET CHARACTERS SEPARATELY 
3706 072712 042703 177760 BIC 0177760, R3 sONLY RIGHT BINARY NIBBLE REMAINS IN R3 
3707 072716 006204 ASR R4 sSHIFT OVER FOR LEFT BINARY NIBBLE IN R4 
3708 072720 006204 ASR R4 
3709 072722 006204 ASR R4 
3710 072724 006204 ASR R4 
3711 072726 042704 177760 BIC 177760,R4 sONLY LEFT BINARY NIBBLE REMAINS IN R4 
3712 3R4 IS THE MOST SIGNIFICANT NIBBLE (FIRST) 
3713 3R3 IS THE LEAST SIGNIFICANT NIBBLE (SECOND) 
3714 072732 116422 072650 MOVB HEXCCR4),CR2)+ ;PUT THE ASCII BYTE INTO THE BUFFER HI POSITION 
3715 072736 116322 072650 MOVB HEXCC(R3),CR2)+  ;PUT THE ASCII BYTE INTO THE BUFFER LO POSITION 
3716 072742 112722 000055 MOVB *-,CR2)0 sPUT - BETWEEN HEX PAIRS 
3717 072746 020137 072670 CMP R1,LST sRESULT IS NEGATIVE UNTIL R1i=LST 
3718 072752 103755 BLO 1$ sUNTIL R1i=LST. C TRANSFER ALL SOURCE BYTES) 
3719 072754 105042 CLRB -(R2) } TERMINATE OUTPUT BUFFER WITH A NULL 
3720 072756 RETURN 
3721 
3722 
cree -SBTTL BLOLD BUILD LOOP DIRECT DATA BUFFERS FOR TRANSMIT. 
3725 wit 
3726 3 FUNCTIONAL DESCRIPTION: 
3727 3 THIS SUBROUTINE BUILDS LOOP DIRECT PACKETS FOR TRANSMISSION 
3728 : FROM THE UNA. SOURCE ADDRESS, DESTINATION ADDRESS, 
3729 ; PROT. TYPE, AND LOOP DIRECT HEADER INFO ARE ADDED 
3730 3 TO THE MESSAGE BUFFER. THE MESSAGE BUFFER IS BUILT 
3731 3 BY A CALL TO ELOBUF. 
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VILD L ITRECT DATA BUFFERS FOR TRANSMIT. 


3732 3 
3733 3 INPUTS - Pl THE ADDRESS OF THE DESTINATION ADDRESS (FROM NODE TABLE) 
3734 3 IMPLICIT - P$SIZE CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 
3735 3 XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
aoe : PHYADR HOLDS THE CURRENT LOCAL UNA PHYSICAL ADDRESS 
Hy 
th ; OUTPUTS - BUILT MESSAGE PACKET. 
Hy 
dae 4 3 CALLING PROCEDURE - CALL BLOLOD Pi 
1 3 
3742 ; SIDE EFFECTS - THE MESSAGE PACKET IS BUILD AND CONTAINED IN THE 
3743 Fy BUFFER POINTED TO BY XRGNXT WHEN THE ROUTINE WAS ENTERED. 
de : XRGNXT IS UPDATED TO POINT TO THE NEXT RING ENTRY 
745 3 
3746 ; REGISTER USAGE - R1 HOLDS ADDRESS OF DESTINATION ADDRESS 
3747 3 R2 IS A POINTER FOR THE LOOP DIRECT HEADER INFO 
3748 3 R3 HOLDS THE PACKET LENGTH 
Lm 3 R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER 
3 
3751 3--e 
3752 
3753 072760 BLOLO:: 
3754 072760 P$POP R1 : PUT ADDRESS OF DEST. ADDRESS IN R1 
3755 072762 013704 003762 MOV XRGNXT ,R4 : MOVE NEXT PACKET ADDRESS TO R4& 
3756 072766 032764 100000 000004 BIT @OWN.4(R4 ) 3 CHECK oy ty BIT 
3757 072774 001110 BNE 40% s IF DON’T OWN, BOOKKEEPING ERROR, 
3758 072776 016404 000002 MOV 2CR4),R4 : POINT R4 TO DATA BLOCK 
3759 073002 013703 002372 MOV PSSIZE,R3 3: PUT MESSAGE SIZE INTO R3 
3760 073006 062703 000040 ADD 0,R3 3 ADD HEADER AND LOOP DIRECT INFO TO LENGTH 
3761 073012 010337 050560 MOV R3,XFER 3; PUT BYTES TRANSFERED INTO WORD 
3762 073016 162737 000016 050560 SUB #16,XFER : AND CORRECT FOR HEADER 
3763 073024 022703 002756 CMP @XPKLEN,R3 : SEE IF LONGER THAN ONE PACKET 
3764 073030 002477 BLT 453 : IF YES, ERROR 
3765 073032 010337 050566 MOV R3,B6UFLEN ; PUT PACKET LENGTH IN BUFLEN 
3766 073036 012164 000000 MOV (Ri)+ ,DESTINCR4) ; MOVE FIRST TWO BYTES OF ADDRESS 
3767 073042 012164 000002 MOV CR1)+ .DESTIN+2(R4) ; MOVE BYTES THREE AND FOUR 
3768 073046 011164 000004 MOV (R11), DESTIN+4(R4) : MOVE BYTES FIVE AND SIX 
3769 073052 005064 000006 CLR SOURCC(R4 ) 3; LEAVE BLANK SPACE FOR SOURCE ADDRESS 
3770 073056 005064 000010 CLR SOURCC +2(R4) 3 SIX BYTES WORTH 
3771 073062 005064 000012 CLR SOURCC +4(R4) 
3772 073066 013764 050544 000014 MOV PROTOO, PROTOT(R4) : MOVE PROTOCALL TYPE INTO HEADER 
3773 073074 012702 050720 MOV @LOPDIR ,R2 : MOVE LOOPDIRECT FORMAT HEADER LOC. TO R2 
3774 073100 012264 000016 MOV CR2)+,LOSKIPCR4) : SKIP COUNT 
3775 073104 011264 000020 MOV CR2), LOFCT1ICR4) : FUNCTION CODE (FORWARD) 
3776 073110 013764 047762 000022 MOV PHYADR ,LDADR1(R4) : LOCAL NODE ADDRESS 
3777 073116 013764 047764 000024 MOV PHYADR+2,LDADR1+2(R4) 3 SIX B/TES 
3778 073124 013764 047766 000026 MOV PHYADR+4,LDADR1+4(R4) Hy 
3779 073132 016264 000010 000030 MOV 10(R2),LOFCT2CR4) 3: FUNCTION CODE (REPLY) 
3780 073140 013764 047762 000032 MOV PHYADR ,LDADR2(R4 ) s LOCAL NODE ADDRESS 
3781 073146 013764 047764 000034 MOV PHYADR+2,LDADR2+2(R4) 3 SIX BYTES 
3782 073154 013764 047766 000036 MOV PHYADR +4 ,LDADR2+4(R4) 3 
3783 073162 062704 000040 ADD @LDADR2+6,R4 : POINT R4& TO FIRST DATA BYTE 
3784 073166 010437 050570 MOV R4,CMPBUF 3; STORE BUFFER LOCATION FOR DATA COMPARE 
3785 073172 CALL BLOBUF R4 : BUILD DATA BUFFER 
3786 073202 CALL GETXNX @XRGNXT 3; UPDATE POINTER TO NEXT RING ENTRY 
3787 073214 000411 BR 3 
3 


60% EXIT 
3788 073216 40$: ERROF 13,EMSG10,ERR: TRANSMIT RING BOOKKEEPING ERROR 
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0) BurLo LOOP BaReeT DATA BUFFERS FOR TRANSMIT. 
073216 104455 TRAP CSEROF 
073220 000015 -WORD 13 
073222 064656 -WORD EMSG10 
073224 067460 -WORD ERR1 
3789 073226 000404 BR 60$ 3 EXIT 
3790 073230 4S$: ERROF 14,EMSG14,ERR1 s MESSAGE SIZE TOO BIG 
073230 104455 TRAP CSERDF 
073232 000016 -WORD 14 
073234 064755 -WORD EMSG14 
073236 067460 «WORD ERR1 
3791 073240 608: RETURN 


CZUACBO 
BLOF AS 
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BUILD PACKET FOR FULL ASSIST TRANSMISSION. 


SEQ 116 


HIS SUBROUTINE BUILDS FULL ASSIST PACKETS FOR TRANSMISSION 

SOURCE ADDRESS, DESTINATION ADDRESS, PROT. TYPE 
AND FULL ASSIST HEADER INFO ARE ADDED TO THE MESSAGE BUFFER. 
THE MESSAGE BUFFER IS BUILT BY A CALL TO BLOBUF. 


Pi - THE ADDRESS OF THE DESTINATION ADDRESS (FROM NODE TABLE) 
IMPLICIT - P$SIZE CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 


XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
PHYADR HOLDS THE CURRENT LOCAL NODE ADDRESS 


SIDE EFFECTS - XRGNXT SI UPDATED TO POINT TO THE NEXT RING ENTRY 


R2 HOLDS ADDRESS OF ASSIST NODE ADDRESS 
R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER 


PUT ADDRESS OF TARGET ADDRESS INTO R1 
AND ADDRESS OF ASSIST ADDRESS INTO R2 

MOVE NEXT PACKET ADDRESS TO R4 

CHECK oe BIT 

IF DON’T OWN, BOOKKEEPING ERROR, 

POINT R4 TO DATA BLOCK 

PUT MESSAGE SIZE INTO R3 

ADD HEADER INFO TO LENGTH 

PUT ‘BYTES TRANSFERED’ INTO WORD 

AND CORRECT FOR HEADER 

SEE IF LONGER THAN ONE PACKET 

IF YES, ERROR 

PUT PACKET LENGTH IN BUFLEN 

MOVE FIRST TWO BYTES OF ADDRESS 

MOVE BYTES THREE AND FOUR 

MOVE BYTES FIVE AND SIx 

LEAVE BLANK SPACE FOR SOURCE ADDRESS 
SIX BYTES WORTH 


MOVE PROTOCALL TYPE INTO HEADER 
SKIP COUNT 

FUNCTION CODE (FORWARD) 

TARGET NODE ADDRESS 

SIX BYTES 


FUNCTION CODE (FORWARD) 
ASSIST NODE ADDRESS 
SIX BYTES 


-SBTTL BLOFAS BUILD PACKET FOR FULL ASSIST TRANSMISSION. 

gece 

; FUNCTIONAL wus ef 

3 

; FROM THE UNA. 

3 

3 

3 

; INPUTS - 

3 

3 

3 

3 

3; OUTPUTS - THE BUILT BUFFER 

3 

; CALLING PROCEDURE - CALL BLOFAS P1 

3 

3 

3 

; REGISTER USAGE - R1 HOLDS ADDRESS OF TARGET NODE ADDRESS 

3 

3 R3 HOLOS THE PACKET LENGTH 

3 

3 

dal o 
073242 BLOFAS:: 
073242 P$POP R1,R2 
073246 013704 003762 MOV XRGNXT ,R4 
073252 032764 100000 000004 BIT @OWN,4CR4) 
073260 001140 BNE 40$ 
073262 016404 MOV 2(R4),R4 
073266 013703 002372 MOV P$SIZE,R3 
073272 062703 000060 ADD #60 ,R3 
073276 010337 050560 MOV R3,XFER 
073302 162737 000016 050560 SUB #16,XFER 
073310 022703 002756 CMP @XPKLEN,R3 
073314 002527 BLT 45$ 
073316 010337 050566 MOV R3,BUFLEN 
073322 011264 000000 MOV CR2),DESTINCR4) 
073326 016264 000002 000002 MOV 2(R2) .DESTIN+2(R4) 
073334 016264 000004 000004 MOV 4(R2), DESTIN+4(R4) 
073342 005064 000006 CLR SOURCCC(R4 ) 
073346 005064 000010 CLR SOURCC +2(R4) 
073352 005064 000012 CLR SOURCC +4(R4) 
073356 013764 050544 000014 MOV PROTOO, PROTOTC(R4) 
073364 012764 000000 000016 MOV #0 ,FASKIPCR4) 
073372 012764 000002 000020 MOV @2,FAFCTICR4) 
073400 011164 000022 MOV (R1),FAADRiICR4) 
073404 016164 000002 000024 MOV 2(R1),FAADR1+2(°R4 ) 
073412 016164 000004 000026 MOV 4(R1),FAADR1+4(R4) 
073420 012764 000002 000030 MOV #2, FAFCT2CR4) 
073426 011264 000032 MOV CR2), FAADR2(R4 ) 
073432 016264 000002 000034 MOV 2(R2), FAADR2+2(R4) 
073440 016264 000004 000036 MOV 4(R2), FAADR2+4(R4) 


CZVACBO 
BLOF AS 
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BUILD PACKET FOR FULL ASSIST TRANSMISSION. 


073446 


012764 
013764 


000060 
050570 


40$: 


45$: 


50$: 


RETURN 


#2, FAFCT3CR4) 

PHYADR ,FAADR3(R4) 
PHYADR+2,FAADR3+2(R4) 
PHYADR:4,FAADR3+4(R4) 
#1,FAFCT4C(R4) 

PHYADR ,FAADR4(R4 ) 
PHYADR+2,FAADR4+2(R4) 
PHYADR +4 , FAADR4+4(R4) 
@F AADR4 +6,R4 
R4,CMPBUF 

BLOBUF R4 

GETXNX #XRGNXT 


SO0$ 
28,EMSG10,ERR1 


50$ 
29,EMSG14,ERR1 


SEQ 117 


FUNCTION CODE (FORWARD) 
LOCAL NODE ADDRESS 
SIX BYTES 


FUNCTION CODE CREPLY) 
LOCAL NODE ADDRESS 
SIX BYTES 


POINT R4 TO FIRST DATA BYTE 

STORE BUFFER LOCATION FOR DATA COMPARE 
BUILD DATA BUFFER 

UPDATE POINTER TO NEXT RING ENTRY 


EXIT 
TRANSMIT RING a or ERROR 


AP —— 
. WORD 
. WORD EMSG10 
-WORD ERR1 
EXIT 
MESSAGE SIZE TOO BIG 
RAP CSEROF 
«WORD 29 
-WORD EMSG14 
-WORD ERR1 


B10 


CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 19 SEQ 118 
BLOAST BUILD TRANSMIT AND RECEIVE ASSIST PACKETS 

aere -SBTTL BLOAST BUILD TRANSMIT AND RECEIVE ASSIST PACKETS 

3872 t--* 

3873 073606 BLOAST:: 

3874 ©73606 PsPOP R1,R2 s PUT DESTINATION ADDRESS INTO R1 

3875 s ASSIST ADORESS INTO R2 

3876 073612 013704 003762 MOV XRGNXT ,R4 s MOVE NEXT PACKET ADDRESS TO R4 

3877 073616 032764 100000 000004 BIT GOWN, 4(R4) s CHECK sy oy BIT 

3878 073624 001125 BNE 408 s IF T OWN, BOOKKEEPING ERROR 

3879 073626 016404 MOV 2(R4),R4 s POINT R4 TO OATA BLOCK 
073632 013703 002372 MOV PSSIZE RS s PUT MESSAGE SIZE INTO RS 

3881 073636 062703 ADO @50,R3 s ADD HEADER INFO INTO LENGTH 

3882 073642 010337 050560 MOV R3,XFER s PUT ‘BYTES TRANSFERED’ INTO WORD 

3883 073646 162737 000016 050560 SUB #16, XFER + _AND CORRECT FOR HEADER 

3884 073654 022703 002756 CMP @XPKLEN,R3 s SEE IF LONGER THAN ONE PACKET 

3885 073660 002514 BLT 45% s _IF YES, ERROR 

3886 073662 010337 050566 MOV R3,BUFLE s PUT PACKET LENGTH INTO BUFLEN 

3887 073666 011164 000000 MOV (Ri), DESTINCRA) s MOVE DESTINATION ADDRESS INTO HEADER 

3888 073672 016164 000002 000002 MOV 2cR1), DESTIN+2(R4) s SIX BYTES WORTH 

3889 073700 016164 000004 000004 MOV 4(R1),DESTIN+4(R4) 

3890 073706 005064 000006 CLR SOURCC(R4 ) 3 LEAVE BLANK SPACE FOR SOURCE ADDRESS 

3891 073712 005064 000010 CLR SOURCC +2(R4) s SIX BYTES WORTH 

3892 073716 005064 000012 CLR SOURCC+ 

3893 073722 013764 050544 000014 MOV PROTOO ,PROTOTC(R4 ) s MOVE PROTOCALL TYPE INTO HEADER 

3894 073730 012764 000000 000016 MOV #0, FASKIP(R4) s SKIP COUNT 

3895 073736 012764 000002 000020 MOV @2,FAFCTICR4) s FUNCTION CODE (FORWARD) 

3896 073744 011264 000022 MOV (R2), FAADR1ICR4 ) s TARGET NODE ADDRESS 

3897 073750 016264 000002 000024 MOV 2(R2),FAADR1 +2(R4) s SIX BYTES 

3898 073756 016264 000004 000026 MOV 4(R2), FAADR1+4(R4) 

3899 073764 012764 000002 000030 MOV 2, FAFCT2(R4) s FUNCTION CODE (FORWARD) 

3900 073772 013764 047762 0000352 MOV PHYADR ,F AADR2(R4 ) s LOCAL NODE ADDRESS 

3901 074000 013764 047764 000034 MOV PHYADR+2,FAADR2+2(R4) 3; SIX BYTES WORTH 

3902 074006 013764 047766 000036 MOV PHYADR +4 ,FAADR2+4(R4 ) 

3903 074014 012764 000001 000040 MOV #1, FAFCTS(R4) s FUNCTION CODE (REPLY) 

3904 074022 013764 047762 000042 MOV PHYADR ,F AADRS(R4 ) s LOCAL NODE ADDRESS 

3905 074030 013764 047764 000044 MOV PHYADR +2, F AADR3+2(R4 ) 

3906 074036 015764 047766 000046 MOV PHYADR +4 ,FAADR3+4(R4 ) 

3907 074044 704 ADO @F AADR3+6 ,R4 s POINT R4 TO FIRST DATA BYTE 

3908 074050 010437 050570 MOV R4 , CMPBUF s STORE BUFFER LOCATION FOR DATA COMPARE 

3909 074054 CALL BLOBUF R4 s BUILD DATA BUFFER 

3910 074064 CALL GETXNX @XRGNXT s UPDATE RING POINTER 

3911 074076 000411 BR 508 

3912 074100 408: ERROF 55,EMSG10,ERR1 s TRANSMIT RING vate ~ * ERROR 
074100 104455 ¢ — 
074102 000043 "MORO 
074104 064656 ; WORD EMSG10 
074106 067460 -WORD ERR1 

3913 074110 000404 BR 50% 

3914 074112 4S$: ERROF  36,€MSG14,ERR1 s MESSAGE SIZE TOO BIG ERROR 
074112 104455 TRAP CSEROF 
074114 000044 -WORD 36 
074116 064755 -WORD EMSG14 
074120 067460 -WORD ERR1 

oes 074122 50$: RE TURN 
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-SBTTL BLOREQ BUILD REQUEST ID PACKETS FOR TRANSMIT. 


074124 
074124 
074130 


000014 


--¢6 


FUNCTIONAL DESCRIPTION: 
FROM THE UNA, 


INPUTS - 
OUTPUTS - 
CALLING PROCEDURE - CALL BLOREQ 


ENTERED. 
REGISTER USAGE - R1 HOLDS 


oo o 
‘ 
' 
° 


BLOREQ: : 
MOV XRGNXT ,R4 
BIT @OWN , 40 R4 ) 
BNE 4083 
MOV 2(R4), RO 
MOV #100, ,.BUFLEN 
MOV @ADRBUF .R1 
MOV CR1)+ .DESTINCRE ) 
MOV CR1)+ .DESTIN+2(R4) 
MOV CR1), DESTIN+4(R4) 
CLR SOURCC(R4 ) 
CLR SOURCC +2(R4) 
CLR SOURCC ¢4(R4) 
MOV PROTO2 ,PROTOT(R4) 
MOV @REQID,R2 
MOV CR2)+ ,HEADER(R4 ) 
MOV CR2)+ ,HEADER+2(R4) 
MOV CR2), HEADER +4(R4 ) 
CALL GETXNX @XRGNXT 
BR 503 
408; ERROF 21,EMSG10,ERR1 
508: RETURN 


Ss 
PROTOCALL TYPE, SEQUENCE 
HEADER INFOR ARE BUILT IN THIS SUBROUTINE. 


IMPLICIT - THE DESTINATION ADORESS IS CONTAINED IN ADRBUF. 
BUILT MESSAGE PACKET 


SEQ 119 


THIS SUBROUTINE BUILDS REQUEST ID PACKETS FOR TRANSMISSION 
OURCE ADDRESS, DESTINATION ADDRESS, 
NUMBER AND REQUEST ID 


SIDE EFFECTS - THE MESSAGE PACKET IS BUILT AND CONTAINED IN THE 
BUFFER POINTED TO BY XRGNXT WHEN THE ROUTINE WAS 
XRGNXT IS UPDATED TO POINT TO THE NEXT ENTRY. 


ADORESS OF DESTINATION ADDRESS. 
R2 IS A POINTER FOR REQUEST ID HEADER INFO. 
R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER. 


MOVE NEXT PACKET ADORESS TO R4 
CHECK OWNERSHIP BIT 

IF DON'T OWN, BOOKKEEPING ERROR 
POINT R4 TO DATA BLOCK 


OE ADR. 
MOVE FIRST TwO BYTE OF DEST. 
AND BYTES THREE AND FOUR 
ANO LAST TWO BYTES 
LEAVE BLANK SPACE FOR SOURCE ADOR. 
SIX BYTES WORTH 


MOVE PROTOCALL TYPE INTO HEADER 
MOVE REQUEST ID HEADER LOC. TO R2 
BYTE COUNT 

in Uy CODE (REQUEST ID) 
RECIEPT NO. 

— POINTER TO NEXT RING ENTRY 


TRANSMIT RING eT ERROR 


TO Ri 
AOR. 


TRAP CSEROF 
-WORD 21 
-WORD EMSG10O 
«WORD ERR1 


-SBTTL GET?NX GET NEXT TRANSMIT OR RECIEVE RING ENTRY 


t--? 
s FUNCTIONAL DESCRIPTION 
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GET NEXT TRANSMIT OR RECIEVE RING ENTRY 


GET 2NX 


074262 
074262 
074266 
074272 


074274 


074322 


013701 
013702 
000404 


013701 
013702 


010113 


003754 
003770 


003752 
003766 


000012 


ENTRY. 


INPUTS - 
OUTPUTS - 


SIDE EFFECTS - NONE 


GETRNX: 
RRGSRT RL 
MOV RRGLST,R2 
BR GETCOM 
GETXNX:: 
MOV XRGSRT ,R1 
XRGLST,R2 
GETCOM: PSPOP R3 
CMP CR3),R2 
BEQ 153 
ADD #10. ,CR3) 
BR 25% 
158%: MOV R1,(R3) 


258: RETURN 


-SBTTL BLOBUF BUILD MESSAGE BUFFERS 


FUNCTIONAL DESCRIPTION 
FOR TRANSMISSION. 
INPUTS - 


OUTPUTS - 


CALLING PROCEEDURE - CALL BLOBUF P1 
SIDE EFFECTS - NONE 


CALLING PROCEDURE - CALL GETXNX ¢P1 
CALL GETRNX OP1 


THIS SUBROUTINE CREATES A 


SEQ 120 


THIS SUBROUTINE GETS THE NEXT TRANSMIT OR RECIEVE RING 
IT IS ENTERED AT SEPERATE POINTS DEPENDING ON 

WHICH RING IS BEING USED. 

Pi - THE ADDRESS OF THE RING POINTER TO BE UPDATED. 


sy POINTER IS UPDATED TO POINT TO THE NEXT AVAILABLE 
Y. 


s FOR TRANSMIT UPDATES 
s FOR RECIEVE UPDATES 


REGISTER USAGE - R1 POINTS TO THE FIRST ENTRY IN THE RING 
R2 POINTS TO THE LAST ENTRY IN THE RING 
R3 IS THE ADDRESS OF THE RING POINTER TO BE UPDATED 


MOVE FIRST RING ENTRY TO R1 
MOVE LAST RING ENTRY TO R2 
GO TO COMMON CODE 


MOVE FIRST RING ENTRY TO R1 
MOVE LAST RING ENTRY TO R2 
GET ADDRESS OF RING POINTER IN R353 
SEE IF POINTER POINTS TO LAST RING 
IF YES, BRANCH 

1 ADD ENTRY LENGTH TO POINTER 


ExI 
POINT POINTER TO FIRST ENTRY IN RING 


MESSAGE BUFFER TO BE USED 


Pl - BUFFER LOCATION TO PUT BUILT MESSAGE 

IMPLICIT - P$SIZE CONTAINS THE SIZE THE BUFFER IS TO BE 
PSTYPE CONTAINS THE MESSAGE TYPE 

IMPLICIT - BUFFER STARTING AT LOCATION P1 CONTAINS A 
MESSAGE PS$SIZE BYTES LONG USING THE MESSAGE 

TYPE SPECIFIED BY PSTYPE. 


REGISTER USAGE - R1 POINTS 70 THE NEXT BYTE OF STORED MESSAGE TO BE BUILT 
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IN THE MESSAGE BUFFER. 
R2 = (MESSAGE TYPE X 2), USED AS OFFSET FOR POINTERS 
R3 POINTS TO THE NEXT BYTE OF THE BUFFER UNDER CONSTRUCTION 
R4 POINTS TO THE LAST BYTE OF THE BUFFER UNDER CONSTRUCTION 


074324 
074324 


050542 


--¢ 


BLOBUF : ; 


108: 


208: 


R3 
PSTYPE ,R2 
Re 


PSSIZE ,R4 
R3,R4 
MSGAD(R2),R1 
COUNT 

COUNT 
CR1)+,CR3)> 
MSGCNT(R2), COUNT 
20% 
MSGAD(R2),R1 
COUNT 

R3,R4 

108 


SEQ 121 


PUT BUFFER ADORESS INTO R3 
PUT MESSAGE TYPE INTO R2 
MULTIPLY BY 2 
PUT SIZE INTO R4 
MAKE R4 = LAST BYTE OF BUFFER 
POINT Ri TO FIRST BYTE OF STORED MESSAGE 
CLEAR BYTE COUNTER 
COUNT NO. OF BYTES COPIED 
PUT BYTE IN BUFFER 
ARE WE AT END OF STORED MESSAGE 
IF NO, CHECK IF DONE 
ELSE, POINT R1 TO BEGINING 
ANDO CLEAR COUNTER 
IS BUFFER FILLED? 
IF NO, LOOP 
ELSE, RETURN 


szuacee 
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074406 
074406 


074414 
074416 


074512 


050550 


050550 


000000 050550 


-SBTTL DATCMP COMPARE DATA BUFFERS 


--+ 


INPUTS - 


OUTPUTS - 


--¢ 


DATCMP: : 
Pp 


108: 


20%: 


8 
PRINTX 


FUNCTIONAL DESCRIPTION 
THIS SUBROUTINE COMPARES TWO DATA BUFFERS BYTE BY BYTE. 
IF COMPARISON ERRORS OCCURED, LOCATION, EXPECTED DATA 


AND RECIEVED DATA ARE PRINTED OUT FOR TH€ FIRST FIVE 


ERRORS. 
Pi - 
P2 - 
P3 - 


Pa - 


SIDE EFFECTS - NONE. 
REGISTER USAGE - R1 CONTAINS THE COMPARE SIZE 


THE TOTAL NUMBER OF ERRORS IS ALSO PRINTED. 
THE SIZE CIN BYTES) OF THE BUFFER TO BE COMPARED. 

THE ADDRESS OF BUFFER TO COMPARE. — BUFFER AGAINST. 
THE ADDRESS OF THE SECOND BUFFER 
THE NUMBER OF COMPARISON ERRORS. 


CALLING PROCEDURE - CALL DATCMP P1,P2,P3 
PSsPOP P4 


SEQ 122 


R2 CONTAINS THE ADDRESS OF THE BYTE BEING COMPARED IN BUFFER 1 
R3 CONTAINS THE ADDRESS OF THE BYTE BEING COMPARED IN BUFFER 2 
R4 CONTAINS THE BYTE OFFSET (BYTES FROM BEGINING OF BUFFER 


R1,R2,R3 


Ra 

TEMP 

R4 
CR2),CR3) 
20% 


TEMP 
oS, TEMP 


20% 
@CMPER1,R4,CR2),(R3) 


30% 
oCMPER2 , TEMP 


PUT COMPARE SIZE IN R1 


BUFFER 1 ADDRESS IN Re AND 


BUFFER 2 ADDRESS IN R3 
INITIALIZE BYTE OFFSET 
AND ERROR COUNTER 


INCREMENT ad COUNTER 
COMPARE BUFFER 

IF SAME, BRANCH 
INCREMENT ERROR COUNTER 


PRINT ERROR MESSAGE 


ADO 
INCREMENT BUFFER 1 POINTER 
INCREMENT BUFFER 2 POINTER 
DECREMENT COMPARE SIZE 


IF NOT FINISHED, GO BACK FOR MORE 


WERE THERE ANY ERRORS? 
IF NO, EXIT 


BAYCHE 


pata 


074512 
074516 
074S22 
074526 
074530 
074532 
074536 


074544 
074550 


074632 
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013746 


023727 
001002 


000402 
012701 


011211 


050550 
067051 
000002 


000006 


050550 000001 


002656 


177777 


000026 


308; 


G10 


RETURN TEMP 


ADD 06 
s RETURN WITH ERROR COUNT ON STACK 


-SBTTL WRITES WRITE DATA ONTO SUMMARY TABLE 


--¢6¢ 


INPUTS - 


OUTPUTS - 


--¢ 


WRITES: —" 


15%: 


CALLING PROCEDURE 


3 FUNCTIONAL wae A 


SEQ 123 
MOV TEMP , -( SP 
MOV OCMPER2, -(SP) 
MOV #2, -(SP) 
MOV SP ,RO 
TRAP age tly 


HIS SUBROUTINE UPDATES THE SUMMARY TABLE DATA FOR 


THE NODES SPECIFIED IN THE CALL STATEMENT. 
NODES CAN UPDATED PER CALL. 


OR TWO 


THE SUMMARY DATA COUNTERS ARE CLEARED. 


IS CHECKED FOR A MATCHING NODE ADORE 
» OR ADDS 


THE NODE TO 


SS AND UPDATES THE 


THE TABLE IF IT 


Pi - THE NUMBER OF NODES TO UPDATE (1 OR 2). 

P2 - THE ADDRESS OF THE FIRST NODE ADORESS. 

P3 - THE ADDRESS OF THE SECOND NODE ADDRESS IF P1 = 2 OR 
BLPNK IF Pl = 1. 


THE SUMMARY TABLE IS UPDATED. 


- CALL WRITES P1,P2¢ ,P3) 
SIDE EFFECTS - THE SUMMARY COUNTERS ARE CLEARED. 
REGISTER USAGE 


- R1 POINTS TO THE CURRENT LOCATION IN THE SUMMARY TABLE. 
R2 POINTS TO THE NODE TO BE UPDATED’S ADDRESS. 
R3 IS SCRATCH 
R4 HOLDS THE SECOND NODE TO BE UPDATED ADDRESS. 


TEMP 
TEMP, 1 
S$ 

R2 


R2,R4 
@STATBL,R1 


7 
CR2),CR1) 


; SEE HOW MANY NODES TO WRITE 


IF ONLY ONE, 


GET ADDRESS 


IF TWO, GET BOTH ADDRESSES 


MOVE STATISTIC 
SEE IF SLOT IS 
IF YES, BR 
SEE IF TABLE F 
IF YES, ERROR 
LOOK FOR MATCH 


IF YES, BR 
ELSE, POINT R1 


AL TABLE ADDRESS INTO R1 
EMPTY 


ULL 
ING ADDRESS 


TO NEXT ENTRY 


AND CHECK AGAIN 


ADD NEW ADDRES 


S TO TABLE 


caytee® 
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074634 


000002 000002 
000004 000004 
000006 
050500 


208: 


228: 


233: 


25%: 


2(R2),2(R1) 
4(R2),4(R1) 
06,R1 
S.NREC,C(R1)+ 
S.REC,CR1)> 
S.LEN,(R1)-> 
S.COMP,(CR1)+ 
S.BYTE,(R1)> 
22% 
at 
S.XFER,CR1)>+ 
23% 
(R1) 
@2,R1 
TEMP 
30$ 
R4,R2 

$ 
@TABFUL , @SUMM 
S.NREC 
S.REC 
S.LEN 
S.COMP 
S.BYTE 
S.XFER 


SIX BYTES WORTH 
POINT Ri TO DATA 


SEQ 124 


UPDATE SUMMARY DATA, RECEIVES NOT COMPLETE 


RECEIVES COMPLETE 
LENGTH ERRORS 
COMPARE ERRORS 
BYTES COMPARED 


IF OVERFLOW, INCREMENT NEXT WORD 


POINT R1 TO NEXT DATA 
BYTES TRANSFERED 


IF OVERFLOW, INCREMENT NEXT WORD 


POINT R1 TO NEXT DATA 
R NODE 


IF NO MORE, EXIT 

POINT R2 TO NEXT NODE 
ANO UPDATE SUMMARY DATA 

PRINT TABLE FULL MESSAGE 


ADD 
CLEAR SUMMARY DATA COUNTERS 


wALTES. 
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-SBTTL BINDEC CONVERT A 32 BIT BINARY NUMBER TO DECIMAL 


075136 
075140 


075214 


000060 
075214 


075116 


075214 


--@ 


BINDEC:: 


38: 


4%: 


TENPUR : 


INPUTS - 


OUTPUTS - 
SIOE EFFECTS - NONE 
REGISTER USAGE 


FUNCTIONAL DESCRIPTION: 


THIS SUBROUTINE CONVERTS A 32 BIT BINARY NUMBER TO 
A DECIMAL NUMBER REPRESENTED AS AN ASCIZ STRING. 


Pi - THE ADDRESS OF THE FIRST WORD OF BINARY DATA 
BITS 0-15. THE SECOND WORD, BITS 16-31, IS 
EXPECTED TO IMMEDIATELY FOLLOW THE FIRST WORD. 


THE ASCII STRING WILL BE LOCATED STARTING AT DECSTR 


- R1 POINTS TO BITS 0-15 OF BINARY DATA 
R2 POINTS TO BITS 16-31 OF BINARY DATA 
R3 POINTS TO THE OUTPUT STRING 
R4 POINTS TO THE POWERS OF 10 TABLE 


ae csp) s PUT ADDRESS OF BINARY WORD INTO R1 
m4 3; PUT ADDRESS OF SECOND WORD INTO Re 
@DECSTR,RS 3: PUT ADDRESS OF OUPUT STRING INTO R3 
@TENPWR ,R4 3s ADORESS OF TEN POWER TABLE 
@TENPWR+2 RS 
#10. ,4$ 
PART ; CLEAR PARTIAL COUNTER 
CR4),CR1) 3; SUBTRACT 10 POWER 
CR2) 
CRS),CR2) 
33 ; BRANCH IF 10 POWER TOO LARGE 
PART ; ELSE ADD 1 TO PARTIAL 
2s 3; LOOP 
CR4)+,CR1) 3; RESTORE BINARY WORDS 
(R2) 3; AND POINT R4& TO NEXT TABLE ENTRIES 
CR4)+,CR2) 
CR5)+,CRS)> 
@'0,PART 3 CHANGE PARTIAL TO ASCII 
PART,(R3)>+ 3 ANDO PUT INTO OUTPUT STRING 
—— 3: HAVE WE DONE ALL 10 DIGITS 
1$ : IF NO, BRANCH 
(R3)> : IF YES, TERMINATE WITH ZERO 
(SP)-,R5 
:; 1.0 EO9 
; 1.0 E08 


; 1.0 E07 


J10 


DEUNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 22-1 SEQ 126 
CONVERT A 32 BIT BINARY NUMBER TO DECIMAL 

075142 000230 230 

075144 041100 041100 + 1.0 E06 

075146 000017 17 

075150 103240 103240 s 1.0 EOS 

075152 000001 1 

075154 023420 23420 s 1.0 E04 

075156 000000 .°) 

075160 001750 1750 s 1.0 E03 

075162 000000 te) 

075164 000144 144 s 1.0 E02 

075166 000000 0 

075170 000012 12 ; 1.0 E01 

075172 000000 .e) 

075174 000001 1 s 1.0 E00 

075176 000000 0 

075200 DECSTR::.BLKB 12. s 12 BYTES FOR ASCIZ OUTPUT STRING 


075214 000000 PART:: .WORD 0 s PARTIAL COUNTER 
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BINDEC CONVERT A 32 BIT BINARY NUMBER TO DECIMAL 


4261 
ance -SBTTL COMMAND LINE TRAVERSE ROUTINES 
4264 see 
anea 3 P$TRV SUBROUTINE 
; 
4267 sPARSE THE COMMAND LINE SUBROUTINE 
4268 ;TAKE ACTIONS (VIA ACTION TREE) AS PARSING LINE 
4269 sPARSING DIRECTIONS FROM "CLI PARSING NODES” 
anve REGS USED: 
4272 ; R1,R5=SCRATCH P$NUM=NUMERIC CODE FROM DATA 
4273 F R2=ACTION CODE PARAMETER FROM TREE 
4274 3 R3=PARSE TREE POINTER 
4275 3 R4=INPUT STRING POINTER 
4276 3; CALLING SEQUENCE: 
4277 3 JSR PC ,.PSTRV 
4278 3: 
4279 
4280 075216 PSTRV: 
4281 075216 013704 003144 MOV PSBUFA,R4 
4282 075222 013703 003146 MOV PSTREE RS 
4283 075226 121327 000003 P$TRS: CMPB (R3),e3 sSEE IF ONE OF FIRST THREE SPECIAL CODES 
4284 075232 003405 BLE 5$ 3IF YES, DON’T CHECK INPUT STRING 
4285 075234 105714 TSTB (R4) sSEE IF ANY CHARS LEFT IN INPUT STRING 
4286 075236 001441 BEQ PSEXIT 38R IF NO 
4287 075240 121327 000013 CMPB CR3),@11. sSEE IF SPECIAL CLI CHAR CODE OR ASCII 
4288 075244 003023 BGT 20% 3B8R IF REGULAR ASCII CHAR. 
4289 075246 111301 5$: MOVB CR3),R1 sGET SPECIAL CHAR CODE INTO RS 
4290 075250 006301 ASL R1 
4291 075252 016101 075266 MOV 10$(R1),R1 sBUILD TRAVERSE ROUTINE ADDRESS 
4292 075256 062701 075266 ADD #10$,R1 
4293 075262 004711 JSR PC,CR1) :JSR TO SPECIAL CLI TRAVERSE ROUTINE 
ded 075264 000760 BR PSTRS ;GO SEE IF MORE OF STRING LEFT 
4296 
4297 075266 000114 10$: . WORD TRVERR-10$ ; TRAVERSE TABLE FOR “CLI FUNCTIONS” 
4298 075270 000134 . WORD TRVEXI-10$ 31 
4299 075272 000152 WORD TRVBR-10$ se 
4300 075274 000162 .- WORD TRVBIF -10$ 33 
4301 075276 000204 .- WORD TRVSPA-10$ 34 
4302 075300 000270 WORD TRVNUM-10$ 35 
4303 075302 000612 WORD TRVALP -10$ 36 
4304 075304 000656 . WORD TRVALN-10$ 37 
4305 075306 000270 WORD TRVOCT -10$ 38 
4306 075310 000256 .» WORD TRVDEC -10$ 39 
read 075312 000744 . WORD TRVSTR-108 310 
ahaa sNOT A SPECIAL CODE 
4311 075314 121314 208: CMPB CR3),CR4) ;SEE IF FIRST CHAR OF STRING IS A MATCH 
4312 075316 001403 BEQ 22s ;6R IF A MATCH 
4313 075320 004737 075364 JSR PC, TRVBRC ;IF NOT A MATCH, GO TAKE MISS BRANCH 
4314 075324 000740 BR PSTRS : THEN GO BACK PT'G TO MISS NODE 
4315 075326 005204 22s: INC Ra ;IF A MATCH, INCR. CHAR POINTER 
4316 075330 004737 075344 JSR PC, TRVACT : GO DO ACTION DEFINED BY 


4317 075334 062703 000004 ADD 04 ,R3 s ACTION CODE IN CLI NODE, THEN 


L1i0 
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EGHMAND CEN TRAVERSE ROUTINES” . ppt acy 

4318 ; ADJUST PTR TO NEXT CLI NODE 

4319 075340 000782 BR PSTRS 

4 

4321 075342 000207 PSEXIT: RTS PC :RETURN FROM PARSER 

4323 Bannan ene ene ee ee eee eee ween ene n en nee wen een eeneee 

4324 

4325 ;GOTO USER ACTION ROUTINE 

4326 075344 116302 000001 TRVACT: MOVB -1(R3),R2 sGET ACTION CODE FROM CLI NODE 

4327 075350 042702 177400 BIC #177400,R2 sCLEAR ANY SIGN EXTENSION 

4328 075354 013701 003150 MOV PSACT,Ri ;GET ADDRESS OF CLI ACTION ROUTINE 

4329 075360 004711 JSR PC,(R1) sGO DO ACTION DEFINED BY CODE 

4330 075362 000207 RTS PC sRETURN TO CALLING CODE 

4332 ; TAKE BRANCH IN TREE 

4333 075364 016301 000002 TRVBRC: MOV 2¢R3),R1 :GET BRANCH DISPLACEMENT FROM TREE 

4334 075370 060103 ADD R1,R3 ; AND POINT R3 TO THE “MISS” NODE 

4335 075372 000207 RTS PC ; RETURN TO PSTRV 

4 

4337 ;NO BRANCH TAKEN 

4338 075374 062703 000004 TRVNOB: ADD 04,R3 ; THINGS OK, UPDATE R3 TO POINT TO NEXT 

4339 075400 000207 RTS PC ; NODE ANDO RETURN TO P$TRV 

Ci (ele aCe RE kena a EDR denineenteeEsebuensKsense 

4342 TERROR HANDLING 

4343 075402 004737 075344 TRVERR: JSR PC, TRVACT s TAKE ERROR ACTION 

4344 075406 112737 177777 003161 MOVB -1,P$GDBD ;SET ERROR RETURN FLAG 

4345 075414 005726 TST (SP)+ ;GET RID OF “JSR PUSH TO TRVERR” 

4346 075416 000137 075342 JMP PSEXIT ;RETURN DIRECT TO EXIT OF P$TRV ROUTINE 

4348 sEXIT ACTION CODE 

4349 075422 004737 075344 TRVEXI: JSR PC, TRVACT sTAKE EXIT ACTION 

4350 075426 105037 003161 CLRB P$GDBD sSET GOOD/BAD FLAG TO “SUCCESS (0)” 

4351 075432 005726 TST (SP)+ ;GET RID OF “JSR PUSH TO TRVEXI“ 

4352 075434 000137 075342 JMP PSEXIT ;RETURN DIRECT TO EXIT OF PSTRV ROUTINE 

4354 ;BRANCH ACTION CODE 

4355 075440 004737 075344 TRVBR: JSR PC, TRVACT :GO TAKE BRANCH ACTION 

4356 075444 000137 075364 JMP TRVBRC 

4358 ;BRANCH-IF ACTION CODE 

4359 075450 004737 075344 TRVBIF: JSR PC, TRVACT 

4360 075454 105737 003161 TSTB PSGDBD ;SEE IF P$GDBD SET OR CLEARED BY ACTION 

4361 075460 001402 BEQ 1$ ;IF CLEAR FALL THRU TO NEXT NODE 

4362 075462 000137 075364 JMP TRVBRC ;ELSE TAKE THE “MISS” BRANCH 

4363 075466 000137 075374 1$: JMP TRVNOB ;JUST UPDATE TO NEXT NODE IF THINGS OK 

4365 ;SPACE ACTION CODE 

4366 075472 TRVSPA: CLR R1 :CLEAR “SPACE OR TAB FOUND” FLAG 

4367 075474 121427 000011 1s: CMPB ss (R4), 011 ;SEE IF CHAR. IN CMD LINE= TAB 

4368 075500 001003 BNE 28 3BR IF NO, NOT A TAB 

4369 075502 005204 INC R4 sINC INPUT STRING POINTER 

4370 075504 005201 INC R1 :INDICATE A TAB FOUND 

4371 075506 000772 BR 18 ;GO CHECK NEXT CHAR 

4373 075510 121427 000040 2s: CMPB = (R4) , #40 ;SEE IF CHAR. IN CMD LINE= SPACE 

4374 075514 001003 BNE 10$ ;BR IF NO, NON-SPACE OR NON-TAB CHAR, 


CZUACBO 
COMMAND 


LINE TRAVERSE ROUTINES 


075516 


075712 


075714 
075716 
075720 
075722 
075724 
075730 
075732 
075736 
075742 
075744 


012737 
000137 


012737 


012746 


013737 


075344 
075374 
075364 


000012 
075564 
000010 
000053 


000055 
177777 


052554 
000001 


000004 
177777 


000071 


003154 


000060 
003154 


003154 


003156 


003156 


003157 


000012 


003161 


003152 


10$: 


15$: 


TRVDEC: 


TRVOCT: 
TRVNUM: 
TRVNMA ; 


10$: 


11$: 
1$: 


12$: 
13%: 


2s: 


3$: 
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SEQ 129 


sINC INPUT STRING POINTER 

sINDICATE A SPACE FOUND 

sGO CHECK NEXT CHAR 

sSEE IF ANY SPACES OR TABS FOUND 

s8R IF NO, TAKE NO ACTION 

sGO TAKE ACTION IF ANY FOUND 

sJUST GO UPDATE R3 TO NEXT NODE IF OK 
s TAKE BRANCH (MISS) IF NONE FOUND 


sUSE DECIMAL AS RADIX AND ASSUME + 


JMP 
oes AS TRVNUM SINCE DEFAULT RADIX IS OCTAL) 


INC R4 
INC R1 
BR 1$ 
TST Ri 
BEQ 15$ 
JSR PC, TRVACT 
JMP TRVNOB 
JMP - TRVBRC 
MOV #10. ,P$RADX 
TRVNMA 
#8. ,P$RADX 
PUSH = 
CLR 
CMPB CR4),0" + 
BNE 10$ 
BR 11$ 
CMPB CR4),0° - 
BNE 1$ 
MOVB @-1,P$RADX+1 
INC R4 
C C(R4), 066 
BLT 2s 
CMPB C(R4),067 
BLE 13$ 
C P$RADX, #10. 
BEQ 12$ 
CMPB (R4),071 
8GT es 
PRINTF @CLIBRX 
MOVB #-1,P$GD8D 
BR S$ 
CMPB (R4),071 
BGT es 
INC R4 
INC R1 
BR 1$ 
TST R1 
BEQ S$ 
MOV R4,R5 
SUB R1,RS 
CLR $NUM 
MOVB CRS)+,R2 
SUB #60 ,R2 
ASL P$NUM 
BCS 7$ 
MOV P$NUM,PSCNT 


sUSE OCTAL AS RADIX AND ASSUME + 


sCLEAR DIGIT COUNTER 

;SEE IF THERE'S A «+ SIGN THERE 

; BR IF NO 

; ELSE P$RADX ALREADY SAYS +, JUST BR 
3SEE IF THERE'S A - SIGN THERE 

; BR IF NO 

sSET “MINUS FLAG” CHI BYTE OF PS$RADX) 
sBUMP R4 TO POINT TO FIRST CHAR 


;SEE IF CHAR. LESS THAN A “0” 

38R IF YES CNOT NUMERIC) 

;SEE IF CHAR. GREATER THAN A “7" 

; BR IF YES 

;SEE IF IN DECIMAL MODE 

; BR IF YES CCAN wy —— LIMIT) 
;SEE IF DIGIT WAS A 8 OR 9 

:BR IF NON-NUMERIC 

sELSE WAS A 8 OR 9 WHEN A OCTAL RADIX 


@CLIBRX, 
MOV #1,-(SP) 
MOV SP .RO 
TRAP CSPNTF 
04 ,SP 


sSET ERROR RETURN FLAG 
; PRINT ERROR AND TAKE MISS 


;SEE IF CHAR. GREATER THAN A “9” 
3BR IF YES (NOT NUMERIC) 

sUPDATE CMD LINE PTR TO NEXT CHAR. 
s INDICATE A NUMERIC FOUND 

3GO LOOK AT NEXT CHAR. 


sSEE IF FOUND ANY NUMERICS 
3;8R IF NO, TAKE “MISS” BRANCH 


sGET POINTER TO START OF NUMERIC STRING 


sCLEAR LOC. WHERE VALUE WILL BE STORED 
sGET ASCII CHAR AND CONVERT IT TO A @ 


sSHIFT CURRENT VALUE I ROOM 


sERROR IF NUMBER TOO B 
sSAVE FOR LATER IN CASE DECIMAL RADIX 


SBE 


DEUNA_N 
LINE TR 


0757S2 


076074 


076100 
076102 
076106 
076110 
076114 
076116 
076120 
076122 
076124 
076126 
076130 
076134 
076140 


076144 
076146 
076152 
076154 
076160 
076162 
076164 
076166 
076170 
076174 
076176 
076202 
076204 


RSE 


012746 
012746 
010600 
104417 
062706 
112737 


000137 


003154 
003154 
003156 
003152 
003154 


003157 
003154 
075344 
075374 


052527 
000001 


000004 
177777 
075364 


000101 
000132 


075344 
075374 
075364 
000060 


000072 


000101 
000132 


000012 
003154 


003161 


4$: 


15$: 


7$: 


S$: 


TRVALP: 
1$: 


2s: 


3$: 


TRVALN: 
10$: 


1$: 


PRINTF 


N10 
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kf 

P$RADX, #10. 

ag 

ee 
$ 

R2,P$NUM 

7$ 

Ri 

3$ 

P$RADX+1 

15$ 

P$NUM 


RS 
PC, TRVACT 
TRVNOB 


@CLINBG 


#-1,P$GDB8D 
RS 
TRVBRC 


R1 
(R4),0101 
es 
se S88 


3$ 

PC, TRVACT 
TRVNOB 
TRVBRC 


10$ 
(R4),0101 
es 
(R4),0132 
es 

R4 


SEQ 130 


sERROR IF NUMBER TOO BIG 


sERROR IF NUMBER TOO BIG 
sSEE IF DECIMAL RADIX 
3BR IF NOT EQUAL 


sERROR IF NUMBER TOO BIG 
s;ERROR IF NUMBER TOO BIG 


_— ~ WAS PRECEDED BY A - SIGN 

3 

; ELSE NEGATE THE NUMBER BEFORE LEAVING 
sRESTORE RS 

sSINCE NUMERIC FOUND, GO TAKE ACTION 
3GO POINT R3 TO NEXT NODE 


;PRINT NUMBER TOO BIG ERROR 
MOV 


MOV SP ,RO 
TRAP CSPNTF 
#4,SP 


;SET ERROR RETURN FLAG 
sRESTORE RS 
;TAKE “MISS” BRANCH 


;CLEAR ALPHA FOUND FLAG 

;SEE IF CHAR. LESS THAN A “A” 

;8R IF YES CNOT ALPHA) 

;SEE IF CHAR. GREATER THAN A “Z" 
;8R IF YES CNOT ALPHA) 

;UPDATE CMD LINE PTR TO NEXT CHAR 
s INDICATE AN ALPHA WAS FOUND 

3GO LOOK AT NEXT CHAR. 

;SEE IF ANY ALPHA'S WERE FOUND 
;BR IF NO 

;IF ANY FOUND TAKE ACTION 

3; THEN UPDATE R3 TO NEXT NODE -NO BRANCH 
;NONE FOUND, TAKE MISS BRANCH 


;CLEAR ALPHANUM FOUND FLAG 

3SEE IF CHAR. LESS THAN A “0” 

;BR IF YES (NOT NUMERIC OR ALPHA) 
;SEE IF CHAR. GREATER THAN A “9” 
3B8R IF YES (NOT NUMERIC) 

sUPDATE CMD LINE PTR TO NEXT CHAR. 
sINDICATE A NUMERIC FOUND 

:GO LOOK AT NEXT CHAR, 

;SEE IF CHAR. LESS THAN A “A” 

s;BR IF YES (NOT ALPHA) 

;SEE IF CHAR. GREATER THAN A "2" 
;B8R IF YES (NOT ALPHA) 

sUPDATE CMD LINE PTR TO NEXT CHAR 


@CLINBG, -(SP) 
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COMMAND LINE TRAVERSE ROUTINES 


076322 
076324 


075344 
075374 
075364 


000006 
003152 


003152 


003152 


075344 
000004 


075364 


2s; 


38: 


TRVSTR: 


2s: 


108: 


158; 
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TRVAOR 


Bil 
23-4 


PC, TRVACT 
TRVNOB 
TRVBRC 


RS 

PC, TRVACT 
4(R3),R3 
PC 


RS 
TRVBRC 


SEQ 131 


sINDICATE AN ALPHA FOUND 

3GO LOOK AT NEXT CHAR, 

sSEE IF ANY ALPHANUM’S WERE FOUND 

s6R IF NO 

sIF ANY FOUND TAKE ACTION 

s THEN UPDATE R3 TO NEXT NODE -NO BRANCH 
sNONE FOUND, TAKE MISS BRANCH 


sSAVE RS 
sPOINT R1 TO CMD STRING 


sPOUNT RS TO MATCH STRING FROM CLI NODE 
sCLEAR CHAR MATCH COUNT 

sSEE IF END OF MATCH STRING YET 

36R IF YES 

mS END OF CMD LINE YET 

3 

sSEE IF CHARACTERS MATCH 

36R IF NO 

sMATCH -INCREMENT MATCH COUNT 

sUPDATE STRING POINTERS 


sBR TO CONTINUE CHECKING CHARS. 


sWHEN DONE SEE IF ANY MATCHES FOUND 
36R IF NO, GO TAKE THE MISS BRANCH 
;POINT CMD POINTER TO END OF STRING € 
sRESTORE RS 

sIF A MATCH FOUND, GO DO MATCH ACTION 
sUPDATE RS TO NEXT NODE (NO BRANCH) 

s (NO RETURN THRU TRYNOB SINCE DIFFERENT 
s_ OISPLACEMENT DUE TO MATCH STRING) 
sRESTORE RS 

: GO TAKE BRANCH 

s (PARSED OK), -1 IF Itt CMD..... 


TRAVERSE COMMAND LINE INPUT ADORESS 


THIS ROUTINE IS CALLED BY TWO DIFFERENT ACTION ROUTINES. THE 


NODE ACTION ROUTINE CALLS IT TO PARSE THROUGH THE 
ADORESS INPUT BY THE OPERATOR. 
CALLS TRVADR TO PARSE T 
WHICH HAS BEEN INPUT IN THE 
THE ROUTINE LOOKS FOR A ‘/' 


HROUGH THE “OPERATOR oe MESSAGE 
OMMAND LINE. FOR A NODE ADORE 
AS A DELIMETER FOR THE ADORESS, 


NODE 
THE OPRSEL ACTION ROUTINE 


AND REPLACES THE / WITH A NAL BYTE FOR USE BY THE ADDRESS 
PACKING ROUTINE. WHEN CALLED BY THE OPRSEL ROUTINE, A ‘”* 

IS EXPECTED AS THE DELIMETER FOR THE OPERATOR SELECTED MESSAGE. 
IF A NULL STRING IS ENTERED, AN ERROR MESSAGE IS PRINTED. 


INPUTS - 


OUTPUTS - 
COMMAND LINE 


- POINTS TO THE BEGINING OF THE ADDRESS 


AGE IN THE COMMAND LINE 


OR MESS 
SUMMARIZED IN TABLE BELOW 


OUTPUTS 


Mae a eo 


177777 


000000 


000000 
000000 
000101 
000124 
177777 
000057 
000001 


003161 


003672 


003161 


003672 


‘ 
‘ 
° 


- + 
oD 
“8 


35%: 


Cil 


SEQ 132 
INPUT CONDITION ! PSGDBD ! R4 POINTS TO ! CFLAG CONTAINS ! PSMERR 
ee Cece eee e sce hess eses sees eseeHaesessessceses assess aehesescess 
ILLEGAL CHAR. ! -1 ! ILL. CHAR. ! N/A 
ADR. /ASSIST : 0 ! END OF LINE ! CASIST ' N/A 
ADR. / TARGET ' ' ! ' 
ADR. / ! END OF LINE! CTARGT * N/A 

. . . $ 
ADR./CHAR. OR ! ' ' ' 
“OPR SEL/CHAR. ! ' ' ' 

OTHER THAN "A"! = -1 17 ‘ CTARGT ! N/A 

"T" OR BLANK ! ' ' ' 
“m ; ! CHAR. AFTER ” } t <3 
“OPR SEL” : 0 ! CHAR, AFTER ” ! OPRSEL : 0 
CALLING PROCEDURE - JSR PC,TRV 


AOR 
REGISTER USAGE - Ri IS USED AS A COUNTER ke Ra ERROR MESSAGES 


IF NULL STRINGS ARE ENT 


R4 POINTS TO THE NEXT CHAR. IN THE COMMAND LINE 


& 
@'7,(R4) 
25% 
@CASIST,CFLAG 
S0$ 


sCLEAR HEX DIGIT FOUND FLAG 
sSEE IF NUL CHAR, 

s_ IF YES, RETURN 

sSEE IF ILLEGAL CHARACTER 

sIF YES; BRANCH ERROR ROUTINE 

sSEE IF CHAR. IS A ‘"' 

VIF YES ,BRANCH TO 40% 

sSEE IF CHAR. IS A “/” 

sBRANCH IF YES 

sSEE IF CHAR. GREATER THAN “F” 

s IF YES, ILLEGAL CHAR 

sUPDATE CMD LINE POINTER TO NEXT CHAR. 
sINCIDATE A VALID CHAR. FOUND 

sLOOK AT NEXT CHAR. 

‘= ERROR FLAG 


sRETURN 
sSEE IF VALIO CHARACTERS FOUND 
3: IF NO, ILLEGAL CHAR. 


sRE 

sSEE IF VALID CHARACTERS FOUND 

: IF NO, ILLEGAL CHAR, 

3 IF YES, REPLACE "/” WITH NULL CHAR 
sUPDATE CMD. LINE POINTER TO NEXT CHAR. 
3IS NEXT CHAR. NULL 

: IF YES, TAKE DEFAULT OF TARGET 


sIS NEXT CHAR, “A” 

s IF YES, BR 358 

sIS NEXT CHAR, “T” 

s IF YES, SET TARGET FLAG 

s ELSE, iM ERROR FLAG 

s READJUST COMMAND LINE POINTER 

s AND REPLACE / IN CMD LINE TO FIX ERROR 
3s SET TARGET FLAG AND RETURN 

sSET ASSIST FLAG 


Dil 
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4593 076504 005701 403: TST R1 sSEE T IF ANY oom TYPED 
4594 076506 001407 BEQ 45% 1 EF NO BRAN 
4595 076510 112714 000000 MOVE @0,(R4) LSE, REPLA e ome “3ttH NULL 
4596 076514 012737 000006 003672 MOV @OPRSEL , CFLAG 1SET OPERATOR SELECTED FLAG 
4597 076522 005204 INC R4 
4598 076524 000414 AR 50% sRETURN 
4599 076526 45%: PRINTF @NULSTR sPRINT NULL STRING ERROR MESSAGE 
076526 012746 053362 MOV ONULSTR, -(SP) 
076532 012746 000001 MOV #1,-(SP) 
076536 010600 MOV SP,RO 
076540 104417 TRAP CSPNTF 
076542 062706 000004 ADD 04 ,SP 
4600 076546 112737 177777 003163 MOVB ®-1,P$MERR sSET OPER. SELECTED MSG. ERROR FLAG 
4601 076554 005204 INC R4 sMOVE CMD. LINE POINTER TO NEXT CHAR. 
4602 076556 000207 50$: RTS PC ;RETURN 
4603 
4604 Bt m ee ee cece cee en eee scent eecesecee sacs cen wesasasenecsnsscesesansesscsssansese 
4605 
4606 .SBTTL REPORT CODING SECTION 
4607 
4608 
4609 zoe 
4610 3 THE REPORT CODING SECTION CONTAINS THE 
aeii 3; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
1 ge 
4613 
4614 076560 BGNRPT 
076560 LSRPT:: 
“et 
MASSIAKSE MACHA SHS SAAS AAA IAAS AANA SCM E SAME Riad seeded dead saSS 
4618 3 THIS SECTION, WHICH IS OPTIONAL, CONTAINS THE CODE FOR PRINTING 
4619 ; STATISTICAL INFORMATION GATHERED BY THE DIAGNOSTIC. IT IS 
4620 ; EXECUTED BY THE OPERATOR COMMAND “PRINT” OR BY THE MACRO CALL 
4621 “DORPT”. USE THE PRINTS MACRO TO PRINT THE INFORMATION. 
4622 : USE FORMAT STATEMENTS AS IN THE PRINTB/PRINTX MACROS. IT IS 
4623 3 THE PROGRAMMER’'S RESPONSIBILTY TO DEVISE AND IMPLEMENT THE 
4624 3 FORM AND CONTENT OF THE STATISTICS. 
4625 j SESADAAASSACBALASC AAAS SACS EASA CAA TASS TC AET CASAS AANA A dA ASS ASAAAE MAASAI 
4627 
4628 076560 004737 101710 JSR PC, ACTSUM 
4629 076564 EXIT RPT 
076564 000167 WORD J$SJMP 
076566 000000 WORD L10006-2- 
4630 
4632 3 
4633 ; INSERT LOCAL STORAGE THAT IS USED ONLY 
rend : DURING THE REPORT SECTION. : 
3 


E11 
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REPORT CODING SECTION 

4637 3 

4638 ; INSERT MESSAGES THAT ARE USED ONLY 

4639 3 OURING THE REPORT SECTION. 

4640 SEMA AASACCA KAMAN S ANAM AKSASAASASACAACAS CA SAGASSA AAA AAAKMABAS KAKA AAAS ASS 

4642 

4643 .EVEN 

4644 

4645 076570 ENORPT 

076570 L10006: 


076570 104425 * TRAP CSRPT 


CZUACBO 
PROTECTI 
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ON TABLE 


076572 
076572 


076572 
076574 
076576 


076600 


177777 
177777 
177777 


Fil 


SEQ 135 


-SBTTL PROTECTION TABLE 


a 
: THIS TABLE IS USED BY THE — SERVICES 
; TO PROTECT THE LOAD MEDIA 


BGNPROT 

LSPROT:: 
-1 sOFFSET INTO P-TABLE FOR CSR ADDRESS 
-1 sOFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
-1 sOFFSET INTO P-TABLE FOR ORIVE NUMBER 


INSERT BYTE OFFSET FOR DATA NOTED IN COMMENTS ABOVE. (OFFSET 
REFERS TO THE NUMBER OF BYTES FROM THE BEGINNING OF A PTABLE 
ENTRY TO THE ITEM IN QUESTION.) IF THE PARTICULAR 

ITEM DOES NOT APPLY, LEAVE ENTRY AS -1. WHEN THE RUNTIME 
SERVICES EXECUTES A GPHARD, IT USES THESE OFFSETS CIF NOT 

SET TO -1) TO GET THE ITEMS AND COMPARE WITH THOSE SAVED 

IN THE XXDP+ MONITOR. IF THE UNIT BEING REQUESTED MATCHES THE 
ee DEVICE, THE RUNTIME SERVICES RETURN AN INCOMPLETE FLAG ON 


Gil 
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076600 
076600 


022737 


000035 


-SBTTL INITIALIZE SECTION 


8° 

: THE INITIALIZE SECTION oy tt ge THE CODING THAT IS PERFORMED 
s AT THE BEGINNING OF EACH P 

;7e 


BGNINIT 
LSINIT:: 


SEQ 136 


SHU eASUNMSdNSSATSAEAA AANA GSAT RES ASCH A AREAS AMAA AEA 


THE INITIALIZE CODE IS EXECUTED UNDER FIVE CONDITIONS. THERE 
ARE SUPERVISOR EVENT FLAGS THAT ARE USED TO LET THE 
DIAGNOSTIC KNOW UNDER WHICH CONDITION THE EXECUTION IS TAKING 
PLACE. THE EVENT FLAGS ARE READ USING THE “READEF” MACRO. 
THE CONDITIONS UNDER WHICH THE INIT CODE IS EXECUTED AND THE 
CORRRESPONDING EVENT FLAGS ARE: 

START COMMANDO EF .START 


EF .RESTART 


CONTINUE C EF . CONTINUE 
EF .PWR 
Ww PASS EF .NEW 
EXAMPLE OF EVENT FLAG USE 
ADEF @€F .START 
BCOMPLE TE STARTCODE 


OURING THE INIT CODE, USE THE “GPHARD” MACRO TO OBTAIN P-TABLE 
INFORMATION FOR DEVICE TESTING. GET ONE UNIT'S INFORMATION IF 
THIS IS A SEQUENTIAL DIAGNOSTIC. GET INFORMATION ON ALL 

UNITS AVAILABLE FOR TESTING IF THIS IS AN EXERCISER. 


OF UNITS AVAILABLE IS IN A HEADER LOCATION: “LSUNIT”. 


i 
: 


THE NUMBER 


ISCAS AIA CA EASA AS SAS TASES CSSA S CASAC AA CAAA EMA AeA Adee 


INIT: CMP @CEXIT.CFLAG sSEE IF EXIT COMMAND TYPED 
BNE INIT1 s IF NO, DO INIT CODE 
CLR CFLAG : ELSE, CLEAR EXIT FLAG 
JMP INICLN s_ ANDO DO CLEANUP 
INIT1: READEF @€F .START sIF HERE BECAUSE OF “START”, DO INIT 
MOV EF .START RO 
TRAP CSREFG 
BCOMPLE TE START 
Bcs START 
READEF O€F .RESTART sIF MERE BECAUSE OF "RESTART”, DO SOME INIT 
MOV @EF .RESTART,RO 
TRAP CSREFG 
BNCOMPLE TE S$ 
Bcc S$ 
JMP RESTRT 
S$: READEF #€F .CONTINUE sIF WERE BECAUSE OF “CONTINUE”, EXIT 
MOV EF . CONTINUE ,RO 
TRAP CSREFG 
BNCOMPLE TE 10% 
Bcc 10$ 
JMP RESTRT 
108; READEF @€F .NEW sIF HERE ON NEW PASS, SKIP SOME INIT 
MOV EF .NEW,RO 
TRAP CSREFG 


BNCOMPLE TE 158 


GRYRERD DE MECH ORPERCTSER mAs 


4723 
4724 
4725 
4726 


4727 
4728 
4729 
4730 


4731 


4732 
4733 
4734 
4735 


4752 
4753 


076666 
076670 
076674 
076700 
076706 
076706 
076710 
076714 
076722 
076730 
076734 
076734 
076740 
076742 
076744 
076744 
076746 


077144 


103002 
000137 
000137 


104431 
010037 
013737 
062737 
012702 


012700 
104462 
010001 


103006 
004737 
012737 
0004 36 


012700 
104462 
010001 


103017 
004737 
062737 
012777 
162737 
012737 
000412 


012746 


012137 


013746 
012746 


06 
013737 
013737 


100112 
100132 


Hit 
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047662 
047662 


003704 


047632 
047634 


158: 
START: 


18: 


2s: 


$$: 


4$: 


JMP NEW 

JMP INIEXI 
I$STACK #1000, SP 
MEMORY FRESIZ 


MOV FRESIZ,FREMEM 
ADD @2,FREMEM 

MOV @CLKCSR ,R2 
CLOCK L,R1 

BNCOMPLE TE 1$ 
JSR PC ,CLKSET 

MOV @LCLKEN,CLKEN 
BR 3% 

CLOCK P,R1 

BNCOMPLE TE 2s 
JSR PC .CLKSET 

ADD @2,CLKCSR 

MOV @PCLKCT,@CLKCSR 
SUB @2,CLKCSR 

MOV @PCLKEN, CLKEN 
BR 3$ 

PRINTF @NOCLK 


JMP INICLN 
GPHARD 0,R1 


BCOMPLE TE 4$ 

JMP INICLN 

MOV (R1)+,UNACSR 

MOV (R1)+,UNAVEC 

MOV (R1)+, UNAPRI 

SETVEC UNAVEC, @UNAISR,UNAPRI 
MOV UNACSR , PCSRO 

MOV PCSRO,PCSR1 


BCC 


SEQ 137 


15% 


sIF DON’T KNOW WHY WE'RE HERE, EXIT 


sSET PARAMETER STACK POINTER 
sGET FREE MEMORY INFO ran 


MOV 


sSIZE OF FREE MEMORY IN FRESIZ 
sSTART OF FREE MEMORY IN FREMEM 


C$MEM 
RO, FRESIZ 


sSETUP R2 AS A PRT. TO CLOCK INFO. BLOCK 


sGET LINE CLOCK INFO 
MOV 
TRAP 


MOV 
3IF NONE, SEE IF P CLOCK PRESENT 
BCC 1 


#'L,RO 
CsCLCK 
RO,R1 


$ 
3SET UP CLOCK INFO TABLE AND VECTOR 
sSET UP THE ENABLE LINE CLOCK DATA 


sGET P CLOCK INFO 
MOV 
TRAP 
MOV 
sIF NO CLOCK, ERROR 


#'P,RO 
CsCLCK 
RO,R1 


Bcc es 
; ELSE SET UP CLOCK INFO AND VECTOR 
s POINT CLKCSR TO P-CLK COUNT SET REG. 
sLOAD CLK SET REG. WITH COUNT VALUE 


sPOINT CLKCSR BACK TO P-CLK CSR 


sSETUP TO ENABLE P-CLK DATA 
sERROR MESSAGE 


sCANNOT CONTINUE, DO CL 


EANUP 
sGET P-TAB POINTER FOR THIS UNIT 


MOV 
TRAP 


MOV 
;THIS ONE IS NOT AVAILABLE 
BCS 
sSAVE CSR 
sSAVE VECTOR 


sSAVE PRIORITY 
sSETUP UNA INTERRUPT VECTOR 
Vv 


sPCSRO 


UNAPRI, -( SP) 
@UNATISR, -(SP) 
23, -(SP) 
CsSvEC 

#10,SP 
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INITIALIZE SECTION 


4788 
4789 
4790 
4791 
4792 
4793 


013737 
013746 


013777 


012700 
104441 


001162 
113702 
142702 


010246 
012746 
012746 


0 
003702 
003676 
067702 
003700 
000003 
000010 
003704 


000000 


055413 


047634 
047636 
047636 
047640 
047640 


003712 


104326 


S$: 


6$: 


@2,PCSR1 
PCSR1,PCSR2 
#2,PCSR2 
PCSR2,PCSR3 
@2,PCSR3 
@TBLLEN,R3 
@NODTBL ,R2 
CR2)> 

R3 


S$ 
@STBLEN,R3 
@STATBL ,R2 
(R2)+ 


CLKHZ, TIMTCK 


CLKVEC, @CLKINT ,CLKBR 


CLKEN, @CLKCSR 
@PRIOO 


20% 
BINHEX @PCBB2, 06, @STRBUF 
@HOMSG1, OSTRBUF 


FUNCT @RDSTA 
R2 


20% 
PCBB2,R2 
#300 ,R2 
@HOMSG2 ,R2 


Til 
25-2 


SEQ 138 
sPCSR1 
sPCSR2 
sPCSR3 
sCLEAR NODE TABLE 
sCLEAR SUMMARY TABLE 
3 CLEAR SUMMARY DATA COUNTERS 
sCLEAR TIME SINCE -START-LOCATIONS 
3LOAD TICKS/SEC 
sSETUP CLOCK INTERRUPT VECTOR 
MOV CLKBR, -( SP) 
MOV @CLKINT, -(SP) 


MOV CLKVEC, -(SP) 
MOV @3,-C(SP) 
CsSVEC 

ADC #10,SP 
sSET ENABLE BITS IN THE CLOCK TO START 
;SET PRIORITY=0 SO CLOCK CAN INTERRUPT 

MOV @PRIOO,RO 


TRAP CsSPRI 
sINITIALIZE THE UNA 
sREAD UNA DEFAULT PHYSICAL ADDRESS 
sCHECK FOR ERROR 
sPUT ADDRESS INTO HEX FORMAT 


sPRINT ADDRESS 
MOV @STRBUF , -CSP) 


MOV @HDMSG1, -( SP) 
MOV @2,-(SP) 
MOV SP ,.RO 
TRAP CSPNTS 
ADD #6,SP 
sREAD STATUS TO GET ROM VERSION 
sCHECK FOR ERROR 
s;ONLY WANT LOWEST 6 BITS 
sPRINT ROM VERSION 
MOV R2,-C(SP) 


Jil 
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INITIALIZE SECTI 
077512 


4794 077522 


4819 077746 


010600 
104416 
062706 


012746 
012746 


012713 


001114 
013703 
032703 


01274¢€ 
010600 


012746 


012746° 


010600 


#055577 
000001 


055710 
000001 


000004 
010000 


055751 
000001 


11$: 


12s: 


13$: 


15$: 


PRINTS 


8 
PRINTS 
BR 
PRINTS 
BR 
PRINTS 
BIT 


BEQ 
PRINTS 


@HOMSG3 


@UCB20 ,R3 
2,(R3)+ 
OTEMP ,CR3)+ 
#0,(R3)+ 
21040,(R3) 
FUNCT @DMPMEM 


15$ 
$BIT11,R3 
13% 
@HOMSGS 


15$ 
@HOMSG6 


15$ 
2HOMSG7 


$BIT12,R3 
16$ 
@HOMSGS 


SEQ 139 
MOV SP ,RO 
TRAP CSPNTS 
ADD %6,SP 
sPRINT MORE HEADER INFO 
MOV @HOMSG3, -( SP) 


MOV 
TRAP CSPNTS 


ADD 
sSET UP FUNCTION CONTROL BLOCK 
s MOVE 2 BYTES. 

; INTO LOCATION TEMP. 


s FROM LOCATION 21040 
sDUMP INTERNAL MEMORY 
sCHECK FOR ERROR 


sPUT RESULT INTO R3 
sDETERMINE STATUS 


; BITLO!BIT11 = REMOTE 4 POWER UP BOOT ENABLED 


SG4,-(SP) 
MOV #1,-(SP) 
MOV SP ,RO 


: BIT11 = REMOTE BOOT ENABLED WITH ROM 
MOV @HOMSGS, -C SP) 
MOV #1,-(SP) 
SP ,RO 


TRAP CSPNTS 
ADD 64,SP 


: BIT1O = REMOTE BOOT ENABLED 
MOV 


@HDMSG6 , -C SP) 
MOV SP ,RO 
TRAP CSPNTS 
ADD 04,SP 
s REMOTE BOOT NOT ENABLED 
MOV @HDMSG7, -( SP) 
MOV #1, -(SP) 
MOV SP ,RO 
TRAP CSPNTS 
@4,SP 


; BIT12 = SELF TEST ENABLED 
MOV @HOMSGS, -( SP) 


MOV SP,RO 


K1i1 
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INITIALIZE SECTION 

077760 104416 TRAP  C$PNTS 
077762 062706 000004 ADD 04,SP 

4820 077766 000410 BR 17% 

4821 077770 16$: | PRINTS #HOMSG9 ; SELF TEST DISABLED 
077770 012746 056014 MOV @HOMSGS, - (SP) 
077774 012746 000001 MOV #1,-(SP) 
100000 010600 MOV SP RO 
100002 104416 TRAP C$PNTS 
100004 706 000004 04,SP 

4822 100010 012737 000000 002370 17%: MOV @ALPHA,P$TYPE ;SET MESSAGE DEFAULT VALUES 

4823 100016 012737 001000 002372 MOV 0512. ,P$SIZE 

4824 100024 012737 000001 002374 MOV 01,PSCPYS 

4825 100032 000405 BR RESTRT 

4826 100034 20s:  ERROF 18,€MSG18,ERR1 
100034 104455 TRAP = CSEROF 
100036 22 .WORD 18 
100040 065127 ‘WORD €&MSG18 
100042 067460 “WORD ERR1 

4827 100044 000431 BR INICLN 

4828 100046 005037 003706 RESTRT: CLR TIMMIN ;CLEAR TIME SINCE -START-LOCATIONS 

4829 100052 005037 003710 CLR TIMSEC 

4830 100056 013737 003702 003712 MOV CLKHZ, TIMTCK ;LOAD TICKS/SEC 

4831 100064 SETVEC CLKVEC,@CLKINT,CLKBR § ;SETUP CLOCK INTERRUPT VECTOR 
100064 013746 003676 MOV CLKBR, -(SP) 
100070 012746 067702 MOV @CLKINT, -(SP) 
100074 013746 003700 MOV CLKVEC, -(SP) 
100100 012746 000003 MOV 63,-(SP) 
100104 104437 TRAP C$SVEC 
100106 062706 000010 ADD #10,SP 

4832 100112 013777 003704 103554 NEW: MOV CLKEN, @CLKCSR ;SET EWABLE BITS IN THE CLOCK TO START 

4833 100120 SETPRI @PRIOO ;SET PRIORITY=0 SO CLOCK CAN INTERRUPT 
100120 012700 000000 MOV @PRIOO.RO 
100124 104441 TRAP C$SPRI 

4834 100126 000401 BR INIEXI ;EXIT 

4835 100130 INICLN: DOCLN ;ABORT PASS 
100130 104444 TRAP  - CS$DCLN 

4836 100132 INIEXI: EXIT INIT ;EXIT INIT SECTION 
100132 104432 TRAP —- C$EXIT 
100134 000002 .WORD 110010-. 

4837 

4839 . 

4840 : INSERT LOCAL STORAGE THAT IS USED ONLY 

aeei ; DURING THE INITIALIZE SECTION. 

. 

4843 

4844 : 

4845 ; INSERT MESSAGES THAT ARE USED ONLY 

4846 : DURING THE INITIALIZE SECTION. 

4847 , SSCCELSSCCAASSSSSCSEASMTACSAIASSASSCAASASAKAAASAG LEASE AKE EASA AA ASS EA EASA Raed 

4849 

4850 EVEN 

4851 

4852 100136 ENDINIT 
100136 L10010: 
100136 104411 TRAP = CSINIT 


Lae 
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SECTION 


100140 


4872 100140 
100140 
100140 104461 


-SBTTL AUTODROP SECTION 


+ 

THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
THE “ADR” FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
DROPPED FROM TESTING. 


es ee oe oe oe oo 
- 


BGNAUTO 
LSAUTO:: 
Hy 
3 INSERT Pa HERE TO CHECK vay court TO SEE IF THEY RESPOND. 
3 ISSUE A “DODU" FOR THOSE THAT DON’T 
Hy 
ENDAUTO 
L10011: 
TRAP 


SEQ 141 


CsAUTO 


SrUARER 


4874 
4875 
4876 
4877 


4922 
4923 


Mil 
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Re EEXGRC ?) Cc 1 2 84 1 AGE 2 


100142 
100142 


100256 
100256 
100256 


012737 
012737 


104412 


000000 050044 
000400 050044 


050516 


103430 
000340 


-SBTTL CLEANUP CODING SECTION 


SEQ 142 


ied 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


25%: 


30$: 


BGNCLN 


INSERT YOUR CLEANUP CODING. 


LS$CLEAN: : 


THIS CODING SHOULD 


RESTORE YOUR TEST-DEVICE TO A NEUTRAL STATE. 
THIS CODE WILL BE EXECUTED AFTER EACH PASS AND AFTER THE 


PROGRAM IS INTERRUPTED By “tC” 


CLR 
SETPRI 


EXIT 


$ 
38 ,EMSG25 


NIRCNT 
30 


$ 
RECEVE 
Re 


2s$ 

GETRNX @RRGNXT 
2es$ 

@CLKCSR 

@PRIO7 


CLN 


;CLEAR MULTICAST ADDRESS LIST 
3 WRITE O INTO LIST LENGTH 
; RESET FOR 1 ENTRY 
;CHECK FOR ERROR 
s IF OK CONTINUE 
; ELSE, REPORT ERROR 
TRAP — 


8 
EMSG25 
;SEE IF RECEVE COUNT ZERO 


3; IF YES, EXIT 
; ELSE, CLEAR OUT UNWANTED ENTRIES 


; IF ANY WERE FOUND, UPDATE NEXT POINTER 


;SEE IF ANY MORE ENTRIES 

sDISABLE CLOCK 

;SEY PROCESSOR PRIORITY BACK TO 7 
MOV @PRIO7,RO 

TRAP CsSPRI 


TRAP CSEXxIT 
-WORD 1L10012-. 


INSERT LOCAL STORAGE THAT IS USED ONLY 


DURING THE CLEANUP SECTION 


INSERT MESSAGES THAT ARE USED ONLY 
DURING THE CLEANUP SECTION. 


EVEN 
ENOCLN 


BSASSSSSGSSGCSLSSOSSSS 


L1001e: 
TRAP C$CLEAN 


Nii 
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ROP UNIT SECTION 
4925 .SBTTL OROP UNIT SECTION 
4926 
4927 3+ 
4928 3 THE DROP -UNIT P tastep — THE CODING THAT CAUSES A DEVICE 
4929 ; TO NO LONGER BE TESTE 
4930 == 
4931 
4932 100260 BGNDU 
100260 L$DU:: 
4933 
4935  SHSar di headdnatdadiatadedtsnanasD 
4936 3 INSERT DROP CODE 7" THIS CODE WILL BE EXECUTED AFTER 
4937 3 A “DROP” COMMAND OR A "“DODU" MACRO EXECUTION. THE PURPOSE 
4938 3 OF THIS CODE IS TO DO ANY NECESSARY HOUSEKEEPING AFTER A 
4939 3 UNIT HAS BEEN DROPPED. THIS SECTION IS OPTIONAL. 
4940 , BHASSSSACKAC SASS AAS ASK RAABKSNSKAKKAL GHANA K eS Teh eedd A Steet KAA asdesD 
4942 
4943 100260 EXIT DU 
100260 000167 . WORD J$JMP 
100262 000000 . WORD L10013-2-. 
4944 
4946 _ BESSSAASDSASSASSAINAASAHSASSSCASCMSAAASCSNSGSSHGCGASHASSLSSSAHGSALSSKSL LSA SSVGSSSH 
4747 3 INSERT LOCAL STORAGE THAT IS USED ONLY 
4948 3 DURING THE DROP-UNIT SECTION. 
4949 ; BESLANALSESASANSSSSABSS ASN SAAD SAK ASISA SSA NASA SAa KURA SAAN a esa SAKA SaaS 
4950 
4951 ,BSLSUVSCASKCSSSSSKASACKSSLSSLACAASS TLS GSKA AASGSSKAAAG SSG KSLA SASLSHC SAAS SSASCAGLRSSS 
4952 3 INSERT MESSAGES THAT ARE USED ONLY 
4953 Fy DURING THE DROP-UNIT SECTION. 
4954 , SECBASECSSGGAKLISSLAAASASG TLS SACASCSSA SAAS SGA SSLSHLSA DSL SCAG SLAASATLSSLGALAISGLSCCICAGS 
4956 
4957 -EVEN 
4958 
4959 100264 ENDDU 
100264 L10013: 


100264 104453 ” TRAP csbu 


Bie 
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SECTION 
.SBTTL ADD UNIT SECTION 
zee 
: THE ADD-UNIT og CONTAINS ANY CODE THE PROGRAMMER WISHES 
: TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
: TO THE TEST CYCLE. 
ded 
100266 BGNAU 
100266 LSAU:: 
3 INSERT ADD CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
3 AN " “ COMMAND. THE PUPPOSE OF THIS CODE IS TO DO ANY 
3 HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 
3 THIS SECTION IS OPTIONAL. 
3 
100266 EXIT AU 
100266 000167 WORD J$ UMP 
100270 000000 ~ WORD L10014-2-. 
3 
3 INSERT ~y STORAGE THAT IS USED ONLY 
3 DURING THE ADD-UNIT SECTION. 
MAS SUNt Ns dcsd ideas de ease ANE eSATA AAA AAAS 
3 
3 INSERT MESSAGES THAT ARE USED ONLY 
3 DURING THE ADD-UNIT SECTION. 
8 
-EVEN 
100272 ENDAU 
100272 L10014: 
100272 104452 TRAP CsAU 
-SOTTL TEST i: 
: APPEND THE NAME OF THIS TEST TO THE .SBTTL, AS oe IN THE 
3 FOLLOWING EXAMPLE. .SOTTL TEST Ll: NAME OF TES 
 ,Segsscdddsiisdaddsdddddddd 
gee 
s TEST TO sav 
ge- 
: CHANGE THE PHRASE “TEST TO ...”" TO BE A FUNCTIONAL 
r DESCRIPTION OF THE HARDWARE TEST WHICH FOLLOWS. 
, BHAA sds dedi dddsddtnddds BICGESHOSSS 
, SEAESCSNAGS > SHAAAAAAASKHATAKA SHCAAASSHSSGAALS AIST SSGSISSCIASSCSASSTSICEAGASGHIGSSGSES 


CZUACBO 
TEST lL: 


Cle 
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’ INSERT PROGRAM EQUATES THAT ARE USED ONLY IN THIS TEST. 
t 
100274 BGNTST 
100274 Tls:: 
’ 
3 INSERT THE CODING FOR THIS HAROWARE TEST. 
3 
.SBTTL GETCL COMMAND LINE FETCH € INTERPRETATION SECTION 
100274 105037 003161 GETCL: CLRB P$G080 ;CLEAR CMD LINE PARSING ERROR FLAG 
100300 105037 003160 CLRB P SNNUF 
100304 GMANID CLI$PM,CMOBUF ,A,0O,1,72..,NO sGET CMD LINE FROM OPERATOR 
100304 104443 TRAP CSGMAN 
100306 000406 BR 10000$% 
100310 002200 -WORD CMDBUF 
100312 000142 . WORD TSCOOE 
100314 052436 -WORD CLISPM 
100316 000000 -WORD O 
100320 000001 . WORD T$LOLIM 
100322 000110 . WORD TS$HILIM 
100324 100003: 
100324 012737 002200 003144 MOV OCMOBUF ,PSBUFA 
100332 012737 051070 003146 MOV OCLITRE ,P$TREE 
100340 012737 100456 003150 MOV @CLIACT,PSACT 
100346 005037 003672 CLR CFLAG sCLEAR QUALIFIER FLAG 
100352 004737 075216 JSR PC,PSTRV 3GO PARSE COMMAND TREE 
100356 105737 003161 TSTB P$GO8D sSEE IF PARSED OK, OR AN ERROR 
100362 001412 BEQ 18 
100364 PRINTF @CLIERM 3IF NOT PRINT ERROR MESSAGE 
100364 012746 052445 MOV @CLIERM, -(SP) 
100370 012746 1 MOV 01, -(SP) 
100374 010600 MOV SP RO 
100376 104417 TRAP CSPNTF 
100400 062706 000004 ADO 04 ,SP 
100404 000137 100274 JMP GETCL 
100410 105737 003160 18: TST8 P SNNUF 3SEE IF INCOMPLETE COMMAND TYPED 
100414 001412 BEQ 108% 
100416 PRINTF OCLINUF :IF NOT PRINT ERROR MESSAGE 
100416 012746 052476 MOV @CLINUF , -(SP) 
100422 012746 1 MOV #1,-(SP) 
100426 010600 MOV SP RO 
100430 104417 TRAP CSPNTF 
100432 062706 000004 ADO @4,SP 
100436 000137 100274 JMP GETCL 
100442 022737 000020 003672 108%: CMP OCEXIT,CFLAG sWAS EXIT COMMAND TYPED? 
100450 001311 BNE GETCL 3s IF NOT GET NEW COMMAND LINE 
100452 EXIT TST : ELSE ExIT 
100452 104432 TRAP CSExIT 
100454 012302 -WORD L100i5-. 
.SBTTL CLI ACTION TABLE AND ROUTINES 
F USER MUST CLEAR/SET P$GD8D IF USE "“CLIBIF” IN CONNECTION WITH ACTION 
3 R2 WIL’ HOLD ACTION CODE FROM PARSING (CLI) NODE 
100456 CLIACT: 
100456 006302 ASL R2 sMULTIPLY ACTION CODE BY 2 


Die 
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CLI ACTION TABLE AND ROUTINES 


016202 100474 
062702 100474 
004712 
000207 


108; 


MOV 
ADD 
JSR 
RTS 


SSSSSSDSSSSSSSSSSSSSS55555555555555555 


108(R2),R2 
#108 ,R2 
PC,CR2) 

PC 


ACTNUL -103 
ACTHLP -10$% 
ACTNOO - 108 
ACTBLD- 108 
ACTRUN- 10% 
ACTPAT -10$ 
ACTSAV-108 
ACTSUM-10$8 
ACTINT-108 
ACT. «7-108 
ACTF -108 
ACTXAD-10$ 


ACTCTT-108 
ACTOPR -108 
ACTTYP-108 


ACTFCT-108 
ACTUNS -108 
ACTCSU-108 
ACTOIR-108 
ACTOF T-108 
ACTUSF -108 


SEQ 146 


sOFFSET VALUE 


sRETURN TO TRVACT 
ot oe Ae catenatacae OF ACTION TAKEN 


33- -BUILD 

34-RUN SPECIFIED TEST 
35-SET ‘MESSAGE PATTERN’ 
36-SAVE NODE TABLE 
37-PRINT SUMMARY TABLE 
310-REQUEST ID 
311-EXIT 

312-NOT ENOUGH INFO 

113- EXTRACT NI NODE ADORESS FROM INPUT LINE 
314-SAVE POINTER TO BEGINING OF ADDRESS STRING 
315-SET ‘NODE’ FLAG FOR SHOW COMMAND 

316-SET ‘ALPHA’ FLAG 

$17-SET ‘ONES’ FLAG 

320-SET ‘ZEROS’ FLAG 

s21-SET ‘1ALT’ FLAG 

s22-SET ‘OALT’ FLAG 

32” -SET CCITT’ FLAG 

324-SET ‘OPER SEL 

125- DETERMINE MESSAGE TYPE 

326-DETERMINE MESSAGE SIZE 

327-DETERMINE MESSAGE COPIES 

330-SET ‘NODE/ADORESS’ FLAG 

331-SET 'NODE/ALL’' FLAG 

332-SET ALL’ FLAG FOR RUN COMMAND 
333-SET ‘LOOPPAIR’' FLAG FOR RUN CMD 
334-SHOW CURRENT MESSAGE PARAMETERS 

135- RESET MESSAGE PARAMETERS TO DEFAULT 
336-SET ‘COUNTER’ FLAG FOR SHOW COMMAND 
137- CLEAR LOGICAL NODE NAMED FROM TABLE 
s40-INITIATE UNA PORT COMMAND FUNCTION 
341-UNSAVE NODE TABLE 

342-CLEAR SUMMARY TABLE 

343-SET ‘LOOP DIRECT’ FLAG FOR RUN COMMAND 
344-LOOK FOR PASS COUNT DEFAULT 
345-UNSAVE NODE TABLE FROM A FILE 


TEST FLAG 


eC RET TON Taal 


100610 


100616 


Le 
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112727 


000207 


012702 


012246 
012746 


001411 


001021 
012746 


177777 003160 


003164 


000004 
003260 


003160 
076330 
003161 


053232 
000001 


000004 


053051 


: 
sACTION ROUTINE TO INDICATE THAT NOT ENOUGH COMMAND 
s INFORMATION HAS BEEN ENTERED 


ACTNUF: MOVB 


@-1,P$NNUF sSET FLAG TO SAY NEED MORE OF COMMAND 


é 
sACTION ROUTINE TO DO NOTHING 


ACTNUL: RTS 


3 
sACTION ROUTINE 


ACTHLP: P$PUSH 
MOV 
108%: 


PRINTF 


PC sRETURN TO PARSER 


TO PRINT OUT HELP FILE 


Re sSAVE R2 

@HLPTAB ,R2 sMOVE POINTER TO BEGINING OF HELP FILE 

CR2)+ sPRINT LINE AND INCREMENT POINTER 
MOV CR2)+,-CSP) 
MOV #1, = SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 

R2, OHLPEND 3SEE IF ENTIRE FILE PRINTED 

10% sIF NOT, PRINT MORE 

me sELSE, RESTORE R2 AND RETURN 


H 
sACTION ROUTINE TO READ IN NODE PHY. ADDRESS, STORE IT IN ADRBUF 
;AND ENTER IT INTO THE NODE TABLE 


ACTNOD : yy 


108%: 


15$: 


8 
PRINTF 


BR 
CALL 
P$POP 


BNE 
PRINTF 


PSNNUF sCLEAR NOTNUF FLAG 
PC, TRVAOR s TRAVERSE ADDRESS, oa IF TARGET OR ASSIST 
P$GOB8D sCHECK IF RESULTS OK 


sIF NOT, RETURN WITH -1 IN P$GOB8D 
sGET ADDRESS INTO BUFFER 


50% 
EDPACK CBOADR, CADRBUF , 06 
R1 sCHECK RESULTS FOR NUMBER OF CHAR.S 


15$ ;IF OK, BRANCH TO 1538 
@CADRER sELSE PRINT ERROR MESSAGE 
MOV @CADRER, -( SP) 
MOV SP .RO 
TRAP CSPNTF 
ADD @4,SP 


sAND RETURN 
sSEE IF ILLEGAL ADDRESS 


sIF YES, PRINT ERROR MESSAGE 
MOV @ILADMS, -(SP) 


50$ 
—— @ADRBUF , @ILLADR 


17% 
@ILADMS 


5152 


5168 
5169 
5170 
$171 
$172 
5173 
5174 
5175 
5176 


5177 


5178 


101240 


012746 
010600 
104417 
062706 


012746 


022737 
001407 
012737 
012737 
000406 
012737 
012737 


001017 
012737 


012746 


012746 


012746 


012746 
012746 
010600 
104416 


000001 


000004 
053135 
000001 


062510 
002322 


002312 
055177 
000003 


000010 


055137 
000001 


003672 


002312 
002400 


002312 
002400 


002310 


PRINTF 


178; CALL 


253: CALL 


MOV 
PRINTS 


50$: RTS 
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@ILADM1 


S0$ 
BINHEX @ADRBUF , 06, OSTRBUF 


ee 


20 

@ARGTY7 ,KEYWD2 
@CTARGT ,NODTY 
es$ 

@ARGTY6 ,KEYWD2 
@CASIST,NODTY 
— 


50% 
OCMDTY7,KEYWO1 


@MSG2 ,KEYWD2, @STRBUF 


PC 


SEQ 148 

MOV #1, -(SP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD 04,SP 

MOV @ILADM1, -(SP) 
MOV #1,- SP) 

MOV SP ,RO 

TRAP CSPNTF 


sCONVERT BINARY ADDRESS 
sINTO ASCII STRING 
sSEE IF TARGET OR ASSIST 


sMOVE ‘TARGET’ INTO KEYWD2 
sMOVE TARGET INTO NODE TYPE 


sMOVE ‘ASSIST’ INTO KEYWO2 


;CALL ROUTINE TO ENTER NODE ON TABLE 

sCHECK RESULTS 

sIF NODE TABLE FULL, RETURN 

sELSE, MOVE “NODE” INTO KEYWOD1 

sINDICATE IF TARGET OR ASSIST 
MOV @STRBUF , -CSP) 
MOV pon ype oe 


: 
sACTION ROUTINE TO BUILD NODE TABLE USING THE PERIODIC ADDRESS 
s IDENTIFICATION MESSAGES SENT OUT BY NODE ON THE NI 


; 
ACTBLO: PRINTS 


PRINTS 


PRINTS 


@MSG1 


OMSG11 


@MsGle2 


s; PRINT ‘BUILD’ COMMAND — 


Vv @MSG1, -(SP) 
MOV #1, -C ) 
MOV SP ,RO 
TRAP CSPNTS 
ADD 04 ,SP 
MOV @MSG11,-(SP) 
MOV @1,-(SP 
MOV SP RO 
TRAP CSPNTS 
ADD 04,SP 
MOV @MSG12, -( SP» 
MOV SP ,RO 
TRAP CSPNTS 
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CLI ACTION TABL 


101242 
101246 
101254 


101552 


Gle 
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062706 


012704 
012714 


104422 
005714 
001501 


001770 
013703 


012702 


001744 
062702 
022712 
001364 


001023 


000004 


003764 
000002 
000006 
002404 


000010 
177777 


053701 
053560 
000002 
000006 


050556 


050556 
002402 


108: 


19%: 
208: 


218%: 


228: 


358: 


40$: 


P$PUSH R2,R3,R4 
CALL FUNCT @WDOMULA 
PsPOP R2 


10$ 
ERRHRD 25,EMSG25 


CLR TEMP 

CLR TEMP 1 

CLR TEMP2 

MOV #12, TEMPS 


MOV OTIMERS .R4 
MOV 060. ,(R4) 


BREAK 

TST (R4) 
BEQ 40% 
CALL RECEVE 
PsPOP Re 

BEQ 20% 


BEQ 208 

ADO #10,R2 
CMP @-1,(R2) 
BNE 21% 

CALL F INOSL 
PsPOP Re 


MOVB TEMP1, 3(R2) 

COMB TEMP1 

BICB 0376, TEMP1 
TEMP 

MOV 013, TEMPS 

BR 20% 

PRINTB @TABFUL, NOD 


BR 50% 
DEC TEMPS 


oo © © Ge Ge GF oF Ge Ge Ge GF GF Gs Ge Se oF oF OF 


SEQ 149 


ADD 04,SP 
SAVE REGISTERS 
WRITE MULTICAST ADDRESS LIST 
CHECK FOR ERROR 
IF OK, CONTINUE 
ELSE REPORT ERROR 
TRAP CSERHRO 


«WORD 25 
. WORD _ 


. WORD 
CLEAR ‘NO. NODES IN LAST MIN.’ COUNTER 
CLEAR NODE TYPE ARGUMENT (SET TO TARGET) 
SET INTERVAL COUNTER 
SET ‘MINS. SINCE LAST NEW NODE’ COUNTER 
SET SLOT TO BEGINING OF NODE TABLE 
SET UP FOR 1 MINUTE LOOP 


ALLOW FOR CONTROL C INTERRUPTION 


TRAP CsBRK 
SEE IF INTERVAL IS UP 
IF YES, BRANCH 
ELSE, CHECK FOR RECEPTION OF ID MESSAGE 
R2 HOLDS NO OF MESSAGES RECEIVED 
IF NONE, KEEP LOOKING 
IF ONE, GET RECEIVE RING POINTER 
UPDATE POINTER 
POINT R3 TO MESSAGE BUFFER 
POINT R3 TO NODE ADDRESS 
POINT R2 TO NODE TABLE 
SEE IF NODE ALREADY ON TABLE 


IF SAME, DON'T ADD TO TABLE 
ELSE CHECK NEXT TABLE ENTRY 
SEE IF AT END OF TABLE 
IF NO, COMPARE NEXT ENTRY 
IF YES, GET NEXT TABLE SLOT 
SEE IF TABLE FUL 
IF YES, BRANCH 
IF NO, ADD NODE TO TABLE 


SIX BYTES WORTH 


SET NODE TYPE (TARGET OR ASSIST) 
SWITCH TYPE FOR NEXT TIME 


INCREMENT ‘NODES IN LAST MIN.‘ COUNTER 
RESET ‘MINS. SINCE LAST NODE’ COUNTER 
CHECK FOR MORE INPUT 

PRINT “TABLE FULL” MESSAGE 


MOV NOD, -¢ SP 

MOV @TABFUL, -(SP) 
MOV @2, -(SP) 

MOV SP ,RO 

TRAP CsPNTB 

ADD ®6,SP 


SEE IF 10 MINS SINCE LAST NODE 


Hie 
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101556 
101560 
101564 
101572 
101574 


101710 
101714 
101722 


013746 


000642 
012737 
001404 
104456 
000042 


065442 


000000 
004737 
012737 


000207 


105037 
012701 


005711 
001013 


012746 


110374 
000400 


177777 


002322 
067215 
000002 


000050 


050044 


050044 


50$: 


5$; 


PRINTS 


AL 
PRINTF 


50$ 
OBLOMSG, TEMP, TEMP2 


54 
34,EMSG25 


PC,ACTSNO 


IF YES, EXIT 
SEE IF TIME IS uP 


IF YES, EXIT 


SEQ 150 


ELSE, PRINT “STILL WORKING” MESSAGE 


CLEAR MULTICAST ADDRESS LIST 
WRITE O INTO LIST LENGTH 


CHECK FOR ERROR 
IF OK CONTINUE 
ELSE, REPORT ERROR 


PRINT NODE TABLE 


MOV TEMP2, -(SP) 
MOV TEMP , -( SP) 
MOV OBLOMSG, -( SP) 
MOV @3,-CSP) 
MOV SP,RO 

TRAP CSPNTS 

ADD #10,SP 

TRAP CSERHRD 
«WORD 34 

«WORD = EMSG25 
-WORD O 


RESET MULTICAST LIST FOR 1 ENTRY 


RESTORE REGISTERS 


TO PRINT OUT THE SUMMARY DATA 


P $NNUF 
R2,R3,R4 
@STATBL,R1 
(R1) 


S$ 
@TABEMT , @SUMM 


BINHEX R1,06, @STRBUF 
@SUMMS 1, @STRBUF 


;CLEAR NOTNUF FLAG 
s MOVE ADDRESS OF TABLE TO R1 


SEE IF TABLE EMPTY 


IF NOT, CONT. 
ELSE PRINT ‘TABLE EMPTY’ 


EXIT 
SEE IF AT END OF TABLE 


IF YES, EXIT 


SEE IF REST OF TABLE EMPTY 


IF YES, EXIT 
PRINT SUMMARY DATA 
NODE ADDRESS 


MESSAGE 
@SUMM, -CSP) 
@TABEMT, -CSP) 
-(€SP) 


ps de of wt ) 


CsPNTF 


Iie 
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5259 


062706 
012746 


010246 


012746 


000006 


067236 
000001 


000004 
000006 


PRINTF 


MOV 
MOV 


MOV 
PRINTF 


PRINTF 


MOV 
ADD 
CALL 
PRINTF 


ADO 
CA 


LL 
PRINTF 


30$: P$POP 


3 
sACTION ROUTINE 


@SUMMS2 


6(R1),R2 
10(R1),R3 
12(F}1),R4 
@SUMMS3 ,R2,R3,R4 


@SUMMS4 


14(R1),R2 
#16,R1 
BINOEC 


R1 
@SUMMSS ,R2,@DECSTR 


04,R1 
BINOEC R1 
@SUMMS6,, ODECSTR 


04,R1 

S$ 
R2,R3,R4 
PC 


TO INITIATE THE 


z--e 
s FUNCTIONAL DESCRIPTION 


ADD 
s POINT R1 TO NEXT TABLE ENTRY 


FIRST HEADER 


RX NOT COMPLETE 
RX COMPLETE 
LENGTH ERRORS 
PRINT THEM OUT 


SECOND HEADER 


COMPARE ERRORS 
BYTES COMPARED 
PUT INTO ASCII STRING 
PRINT THEM OUT 


BYTES TRANSFERED 
PUT INTO ASCII STRING 
PRINT 


; DO IT ALL AGAIN 


REQUEST ID TEST TO THE SPECIFIED NODE 


SEQ 151 


#6 ,SP 


@SUMMS2 , -CSP) 
#1, -(SP) 


R4, -(SP) 
R3,-CSP) 
R2,-CSP) 
@SUMMS3, -(SP) 


#1, -CSP) 


@DECSTR, -C SP) 
Re, -(SP) 
@SUMMSS.-CSP) 
@3,-(SP) 

SP ,.RO 

CSPNTF 

#10,SP 


ZUACBO _DEUNA NI 
LI ACTION TABLE 


J1le 
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105737 


001012 


012746 
0600 


012746 
012746 
010600 


003162 


103240 
003160 


053051 
000001 
000004 


103240 


177776 
050300 
010000 


103146 


103160 


050534 


052675 
000001 


050554 


--¢ 


INPUTS - 
OUTPUTS - 
CALLING PROCEDURE - JSR PC, ACTIOT 

SIDE EFFECTS - XRGNXT POINTER IS UPDATED BY A CALL TO BLDREQ SUB. 


REGISTER USAGE - Ri POINTS TO $WOMO FOR WRITE MODE OPERATIONS. 
R2 IS SCRATCH. 


ACTIOT: TSTB 


1$: 


2s: 


3$: 


4$: 


BNE 
PRINTF 


PRINTF 


SEQ 152 


THIS SUBROUTINE BUILDS AND TRANSMITS REQUEST ID PACKETS 

TO THE NODE SPECIFIED BY THE OPERATOR IN THE COMMAND LINE. 
THE SYSTEM ID INFO OF THE SPECIFIED NODE IS THEN DISPLAYED. 
IF THE NODE DOES NOT RESPOND BEFORE 60 SECONDS HAVE PASSED 
AN ERROR IS REPORTED TO THE OPERATOR. 


IMPLICIT - THE SPECIFIED NODE ADDRESS IS LOCATED IN ADRBUF. 
SYSTEM ID INFO OR ERROR MESSAGE PRINTED TO OPERATOR. 


R3 POINTS TO THE RECEIVED MESSAGE BUFFER. 
R4 POINTS TO TIMOUT TIMER 


PSAERR 
1$ 


SS$ 
P $NNUF 


_ @ADRBUF , @ILLADR 


2s 
@ILADMS 


SS5$ 
R1,R2,R3,R4 


FUNCT ®WDMODE 


S$ 
ORTRYER 


“2 —_ 


_— @ADRBUF , OPHYADR 


SEE IF ADDRESS ENTERED WAS VALID 
IF NOT, EXIT ACTION ROUTINE 


sCLEAR NOTNUF FLAG 


SEE IF ILLEGAL ADDRESS 


IF NO, CONTINUE 
ELSE PRINT ILLEGAL ADDRESS MESSAGE 


MOV @ILADMS, -( SP) 
MOV SP ,RO 
TRAP CSPNTF 


s SAVE REGISTERS 


SEE IF ADDRESS IS OWN (HOST NODE) 


SET COUNTER FOR NO. OF TIMES TRIED 
SET UP TO WRITE MODE 

10000: TPAD =1 (PAD TRANSMIT BUFFERS) 
WRITE MODE 
CHECK FOR ERROR 

BR IF ERROR 


BUILD REQUEST ID MESSAGE PACKET 
TRANSMIT REQUEST 
GET RESULTS, R2 = SUCCESS/FAILURE 
IF OK BRANCH 

ELSE JUMP TO 45$ 

= ll FAILED DUE TO EXCESSIVE COLLISIONS 


CONT. 
YES, PRINT ‘EXCESSIVE Seay? 
peg 
MOV CSP) 
MOV SP °RO 


MESSAGE 


K1e2 
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5364 
5365 


5366 
5367 


102510 


102774 


012704 
012714 


104422 
005714 
001425 


001770 
013703 


012746 


012703 
012702 
000410 


005237 
062737 


010302 
062702 


012746 


012746 


010246 
012746 


003764 


000002 
000022 


050554 


065266 
000001 


000004 
050500 
103170 


050413 
050454 


050476 
000056 


051115 


050510 


S$: 
15$: 


22s: 


258: 


27s: 


PRINTF 


AL 
PRINTF 


MOV 
PRINTF 


MOVB 
PRINTF 


Ses 
@TIMERS ,R4 
#10. ,CR4) 


(R4) 


SIRCPTC(R3),0”"MR 
es$ 


TEMP2 
15$ 


@EMSG22 


S.NREC 
Sis 


@UCB22+13,R3 
— 


S.REC 
046..,S.XFER 
R3,R2 
@STADODR ,R2 


BINHEX R2, 06, OSTRBUF 
@SIMSG1, @STRBUF 


SIRCPTC(R3),R2 
@SIMSGe ,R2 


SIVERS(R3),R2 
@SIMSG3,R2 


TRAP 
ADD 


EXIT 
SET UP FOR 10 SECOND TIMOUT 


TRAP 
SEE IF TIME HAS EXPIRED 
ANCH 


IF NO BUFFERS RECIEVED, LOOP 
GET RECEIVE RING POINTER 
UPDATE POINTER 
POINT R3 TO MESSAGE BUFFER 
SEE IF MESSAGE RECIEVED IS IN 

IF YES, BRANCH TO 25$ 

INCREMENT RETRY COUNTER 


SEQ 153 


CSPNTF 
94 ,SP 


CsBRK 


WER 
OF BUFFERS RECEIVED 


REPLY TO ONE SENT 


IF NO, LOOK FOR CORRECT REPLY MESSAGE 


ELSE, REPORT ERROR 


UPDATE SUMMARY DATA 
AND EXIT 


#EMSG2e, 
#1,-CSP) 
SP,RO 
CSPNTF 
04 ,SP 


-(SP) 


POINT R3 TO SAME PLACE IN MESSAGE AS 
IF IT ote RECEIVED SYS ID, R2 TO 


NODE ADDRESS 


INCREMENT ‘RECEIVED MESSAGES’ 
UPDATE ‘BYTES TRANSFERED’ 
PUT POINTER INTO R2 

POINT R2 TO ADDRESS 

PUT ADDRESS INTO STRBUF 
PRINT REMOTE NODE ADDRESS 


GET RECEIPT NUMBER 
PRINT RECEIPT NUMBER 


ADD 
GET VERSION NO. AND PRINT 


MOV 
MOV 


COUNTER 


COUNTER 


@STRBUF , -CSP) 
-C(SP) 


Re, -(SP) 
@SIMSG3, -( SP) 
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5368 
5369 


$370 
$371 


$372 
5373 


5374 
5375 


103146 
103146 
103150 
103152 
103154 
103156 


103160 
103160 
103162 
103164 
103166 


103170 
103206 
103212 
103224 
103226 
103230 


012746 


012746 


000002 
000006 
000030 


066572 
000002 


000006 
000031 
066613 
000002 
000006 
000035 
066641 


000002 


000006 
000053 


000002 


40$: 


45$: 


MOVB 
PRINTF 


MOVB 
PRINTF 
MOVB 


PRINTF 


MOVB 
PRINTF 


BR 
ERRDF 


Lie 
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SIECOCR3),R2 
@SIMSG4 ,R2 


SIVECOC(R3),R2 
@SIMSGS ,R2 


SIFNCTCR3),R2 
@SIMSG6 ,R2 


SIDEV(R3),R2 
@SIMSG7 ,R2 


S1$ 
23,EMSG23,ERR1 


S4$ 
24,EMSG24,ERR1 


WRITES #1, @ADRBUF 
2(R1) 
— @WOMODE 


40$ 
R1,R2,R3,R4 


AAA O™~ 


GET ECO NO. AND PRINT 


EXIT 
ERROR -- CAN'T WRITE MODE 
TRAP 


ERROR -- CAN'T acts — 


UPDATE SUMMARY TABLE 
DISABLE TRANSMIT PADDING 


CHECK FOR ERROR 
IF ONE, REPORT IT 
RESTORE REGISTERS 


SEQ 154 
#2,-CSP) 
SP ,RO 


CSPNTF 
06,SP 


Re, -(SP) 
@SIMSGS, -(SP) 
#2, -C(SP) 


@SIMSG6, -CSP) 
P) 


Re, -(SP) 
@SIMSG7, -(SP) 
#2, -C(SP) 

SP ,RO 

CSPNTF 

#6 ,SP 


CSEROF 
23 


EMSG23 
ERR1 


S 
CSERDF 
24 
EMSG24 
ERR1 


Mie 
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5405 


103240 


103242 


103350 
103356 


103360 
103402 
103406 
103412 
103414 
103414 
103420 
103424 
103426 
103430 


000207 


105714 


012746 
012746 
010600 
104417 
062706 


013746 


012737 
000207 


105737 
001412 


012746 
012746 
010600 
104417 
062706 


062500 
002370 


003262 
054641 
000001 
000004 


002374 
002372 


055276 
000004 


000012 
003160 


000020 


003162 


053232 
000001 


000004 


002310 


003672 


SS$: RTS PC 


; 

sACTION ROUTINE TO CHECK FOR ADDITION PARAMETER CHANGE INPUTS 
sAND PRINT OUT NEW PARAMETER INFO WHEN ALL INPUT ARE PROCESSED 
; 


ACTMSG: oa CR4) sCHECK FOR ADDITIONAL INPUT 


SEQ 155 


12$ 3BR IF NO 
BR 5S0$ 3IF YES RETURN 
12$: MOV @CMOTY6 ,KEYWD1 
MOV PSTYPE,R1 sGET MESSAGE TYPE ASCII STRING ADDRESS 


ASL R1 ;INTO R1 


ADD @MSGTAB ,R1 
PRINTF #MSGPRM sPRINT ‘MESSAGE’ COMMAND MESSAGE 
V 


PRINTF @MSG4,(R1),P$SIZE,PSCPYS 


CLRB P $NNUF ;CLEAR NOTNUF FLAG 
50$: RTS PC 


; 
sACTION ROUTINE TO RETURN CONTROL TO THE SUPERVISOR 


ACTEXT: MOV @CEXIT,CFLAG ;SET EXIT FLAG 
RTS PC 


; 

sACTION ROUTINE TO TAKE NI NODE ADDRESS FROM INPUT STRING BUFFER 
;AND STORE IT IN THE BUFFER CALLED ADRBUF 

° 


ACTXAD: CALL pete CBOADR , @ADRBUF , #6 


PsPOP P$ sSET ADDRESS=12 CHAR. GOOD/BAD F 
TSTB P$AERR ;IF GOOD, RETURN 
BEQ 10$ 
PRINTF #@CADRER sELSE, PRINT ERROR ——— 
V 
MOV 
MOV 
TRAP 
ADD 


@MSGPRM, -C SP) 


PSCPYS,-(SP) 
PS$SIZE,-CSP) 
C€R1),-CSP) 
@MSG4, -(SP) 


#12,SP 


3PUT NODE ADDRESS INTO ADRBUF 


LAG 


@CADRER, -(SP) 
#1, -CSP) 
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103434 
103440 


103442 
103446 


103450 
103456 


103460 
103466 


103470 
103476 


103500 
103506 


103510 
103516 


105037 
000207 


010437 
000207 


012737 
000207 


012737 
000207 


012737 
000207 


012737 
000207 


012737 
000207 


003160 


002366 


000001 


000002 


000003 


002370 


002370 


002370 


002370 


002370 


CLRB 
10$; RTS 


Nie 


P $NNUF 
PC 


3 
;ACTION ROUTINE TO STORE POINTER TO 
3IN COMMAND INPUT BUFFER 


ACTSR4: MOV 
10$: RTS 


;ACTION ROUTINE 


ACTALP: MOV 


RTS 


; 
sACTION 
; 


ACTONE : 


ROUTINE 


MOV 
RTS 


; 
sACTION 
5 


ROUTINE 


ACTZRO: MOV 


RTS 


: 
sACTION ROUTINE 


ACTIAL: MOV 


RTS 


3 
sACTION 
’ 


ACTOAL : 


ROUTINE 


MOV 
RTS 


; 
sACTION ROUTINE 
; 


R4,CBOADR 
PC 


TO SET MESSAGE 


#ALPHA ,P$TYPE 
PC 


TO SET MESSAGE 
#ONES ,P$ TYPE 
PC 

TO SET MESSAGE 
#ZEROS ,P$TYPE 
PC 

TO SET MESSAGE 
@ONEALT ,PSTYPE 
PC 

TO SET MESSAGE 


@ZROALT ,P$TYPE 
PC 


TO SET MESSAGE 


TYPE 


TYPE 


TYPE 


TYPE 


TYPE 


TYPE 


SEQ 156 


s AND CLEAR ‘NOT ENOUGH’ FLAG 


BEGINING OF OPERATOR INPUT ADDRESS 


sSAVE STRING POINTER 


= ALPHA FLAG 


3SET MESSAGE TYPE 


= ALL ONES FLAG 


3SET MESSAGE TYPE 


= ALL ZEROS FLAG 


3SET MESSAGE TYPE 


= ALTERNATING ONES FLAG 


;SET MESSAGE TYPE 


= ALTERNATING ZEROS FLAG 


sSET MESSAGE TYPE 


= CCITT FLAG 


I ACTION TABLE AND ROUTINES 


103520 
103526 


103656 
103662 


S29 103664 


103672 
103674 
103702 
103704 
103712 
103714 
103714 


012737 
000207 


001011 
012737 


0004235 
022737 
001011 


012746 


004737 


000207 


023727 


012746 


Bis 
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000005 002370 ACICTT: Hs apc gion 


003163 
177777 


103242 


003154 
002673 
003154 


054061 


003672 
002370 


003672 


003161 


000037 
003154 
002372 


3 
sACTION ROUTINE 


a 
ACTOPR; 


108: 


208: 


308: 


508: 


3 
sACTION ROUTINE 


ty PSMERR 


SR PC, TRVAOR 
TsTB 
BEQ 10% 
CLRB P$G080 
BR 


208 
CMP — »CFLAG 


20 
MOV @OPRSEL , PS TYPE 
CALL SELMSG CBOADR 


508 
CMP @CTARGT ,CFLAG 
BNE 30% 
PRINTF @UNBOND 


50% 
TSTB PSMERR 
BNE 50% 
MOVB eer »P $GO8D 


sAL TERED 


F 
ACTTYP: 


JSR PC, ACTMSG 
RTS PC 


SEQ 157 


sSET MESSAGE TYPE 


TO SET MESSAGE TYPE = OPERATOR SELECTED INPUT 


sCLEAR MESSAGE ERROR FLAG 

sPARSE THROUGH INPUT STRING 

sTEST GOOD/BAD FLAG 

sIF GOOD, BR 10% 

;CLEAR FLAG 

3SET CTARGT FLAG ANO RETURN 

sCHECK TO SEE IF STRING VALID 

3IF NOT OK, RETURN WITH ERROR FLAG SET 

3SET MESSAGE TYPE 

_ SELECTED STRING INTO BUFFER 

}SEE IF CTARGT FLAG SET, IF YES ERROR 

sIF NOT SET, BR 308 

sELSE PRINT UNBOUNDED INPUT STRING ERR. MSG. 
MOV @UNBOND , -( SP) 
MOV #1, -(SP) 

Vv SP ,RO 

TRAP CSPNTF 
ADO @4,SP 

;RETURN 

3IF PSMERR FLAG SET, UNBOUNDED STRING 

3WAS ENTERED, ERROR ALREADY HANDLED 

3SET ERROR FLAG AND RETURN 

sRE TURN 


TO CHECK FOR MORE INPUT AFTER MESSAGE TYPE HAS BEEN 


sCHECK FOR ADDITIONAL COMMANDS 


3 
sACTION ROUTINE TO INPUT MESSAGE SIZE PARAMETER, CHECK TO SEE IF 
sIT IS WITHIN LEGAL LIMITS, CHANGE PARAMETER AND THEN RETURN TO 


3SEE IF 
3 


ACTSZE: 


108: 


MORE INPUT EXISTA 


CMP PSNUM, 031. 
BLE 10% 

CMP #1467. ,P$NUM 
BLE 10% 

MOV + eats 


BR 20% 
PRINTF @SIZLMT 


fr 41 7 


sCHECK FOR VALID SIZE RANGE 
sIF VALIO CONTINUE 
sSET MESSAGE SIZE 


sPRINT SIZE LIMITS EXCEEDED MESSAGE 
MOV @SIZLMT, -( SP) 


oy B 
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103720 012746 000001 MOV #1, -(SP) 
103724 010600 MOV SP ,RO 
103726 104417 TRAP CsPNTF 
103730 062706 000004 ADD 04,SP 

5536 103734 004737 103242 208: JSR PC, ACTMSG sCHECK FOR ADDITIONAL COMMANDS 

5537 103740 000207 RTS PC 

5538 

5539 

5540 3 

5541 sACTION ROUTINE TO INPUT COPIES PARAMETER, CHECK TO SEE IF IT IS 

5542 ;WITHIN LEGAL LIMITS, CHANGE PARAMETER AND THEN RETURN TO SEE IF 

5543 s;MORE INPUT PARAMETERS EXIST 

Seas ;' 

5546 103742 023727 003154 000000 ACTCPY: CMP P$NUM, 00 sCHECK FOR VALID COPIES RANGE 

5547 103750 003410 BLE 108 

5548 103752 022737 000400 003154 CMP #256. .P $NUM 

5549 103760 003404 BLE 10% sIF VALIO, CONTINUE 

5550 103762 013737 003154 002374 MOV P$NUM,PSCPYS sSET MESSAGE COPIES 

5551 103770 000410 BR 208 

5552 103772 10$: PRINTF @CPYLMT sPRINT COPY LIMIT EXCEEDED MESSAGE 
103772 012746 053775 MOV OCPYLMT, -(SP) 
103776 012746 000001 MOV @1,-(SP) 
104002 010600 MOV SP RO 
104004 104417 TRAP CSPNTF 
104006 062706 000004 ADO 04,SP 

5553 104012 004737 103242 208: JSR PC, ACTMSG s;CHECK FOR ADDITIONAL COMMANDS 

5554 104016 000207 RTS PC 

5555 

Sse 

of 
Sone sACTION ROUTINE TO CLEAR NODE SPECIFIED BY PHYSICAL ADDRESS FROM NODE TABLE 
6 

5560 

5561 104020 105037 003160 ACTNAD: CLRB P $NNUF ;CLEAR NOTNUF FLAG 

5562 104024 105737 003162 TST8 PSAERR 3SEE IF ADDRESS ENTERED WAS VALID 

5563 104030 001051 BNE 358 ; IF NOT, EXIT sftti0N ROUT INE 

5564 104032 PSPUSH R2,R3 sSAVE R2 AND R 

5565 104036 012702 002314 MOV @ADRBUF ,R2 sMOVE ADDRESS OF ADORESS INTO R2 

5566 104042 012703 002404 MOV @NODTBL ,R3 sMOVE ADORESS OF NODE TABLE INTO R3 

5567 104046 21s: CALL CMPADR R2,R3 sSEE IF ADDRESSES MATCH 

5568 104060 PsPOP Ri 

5569 104062 001416 BEQ 25% sIF YES, BR 25% 

5570 104064 062703 000010 ADD 10,R3 sELSE POINT R3 TO NEXT ENTRY 

5571 104070 022713 177/77 CMP @-1,(R3) 3SEE IF END OF TABLE 

5572 104074 001364 BNE 21% 3IF NOT, COMPARE NEXT ENTRY 

5573 104076 PRINTF ONOCMPR sELSE, PRINT ADDRESS DOESN’ T COMPARE MSG. 
104076 012746 054160 MOV @NOCMPR, -( SP) 
104102 012746 000001 MOV on CSP) 
104106 010600 MOV SP RO 
104110 104417 TRAP CSPNTF 
104112 062706 000004 ADD 04,SP 

5574 104116 000414 BR 308 sRETURN 

5575 104120 005023 258: CLR (R3)> sELSE, CLEAR NODE FROM TABLE 

5576 104122 005023 CLR (R3)> 

5577 104124 005023 CLR (R3)> 


D13 
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$579 


012746 
012746 
010600 
104417 
062706 


000207 


012703 


012746 


105037 
013737 
022737 
001004 


000423 
022737 
001004 
000413 
022737 
001004 
000403 


023727 


054340 
000001 


000004 


000050 
002404 


053701 
054514 
000002 


000006 
003160 


002376 
002310 


002310 


002310 


177777 


3 
sACTION 
3 


ACTRUN: 
5%: 
108: 


158: 


208: 
30%; 


PRINTF @#ADRDEL 


PSsPOP 8 R2,R5 
RTS PC 
ROUTINE TO CLEAR NODE TABLE 
P$PUSH R2,R3 
MOV @TBLLEN,R3 
MOV @NODTBL ,R2 
CLR (R2)+ 
DEC R3 
NE 10$ 
PRINTF @TABCLR, ONOD 
CLRB P SNNUF 
P$SPOP R2,R3 
RTS PC 
ROUTINE TO RUN SPECIFIED TEST 


CLRB P SNNUF 
PSNUM,PSPASS 


CMP @CRNALL ,KEYWO1 
BNE 10% 

CALL RUNALL 

BR 30% 

CMP @CLUPPR ,KEYWD1 
BNE 15% 

CALL RUNLUP 

BR 30% 

CMP COIR, KEYWO1 
BNE 20s 

CALL RUNOIR 

BR 30% 

CALL RUNPAT 

CMP PS$PASS,@-1 
BEQ S$ 

DEC PSPASS 

BNE S$ 

RTS PC 


SEQ 159 


sPRINT NODE DELETED FROM TABLE MESSAGE 
@ADRDE 


MOV 

MOV #1,-C€SP 
MOV SP RO 
TRAP CSPNTr 
ADD 04,SP 


sRESTORE R2 AND R3 
sRETURN 


sSAVE R2,R3 

sSET INCR. COUNTER TO 40 

sMOVE NODE TABLE ADDRESS INTO R2 
sCLEAR BYTE IN NODE TABEL 
sDOECRIMENT COUNTER 

sCONTINUE UNTIL DONE 

sPRINT NODE TABLE CLEARED MESSAGE 


MOV @NOO0, 

MOV @TABCLR, -(SP) 
MOV @2,-C(SP) 

MOV SP ,RO 

TRAP CSONTF 


sCLEAR NOTNUF FLAG 
sRESTORE R2 AND RS 


; CLEAR ‘NOT ENOUGH’ FLAG 


; SEE IF ‘ALL’ TEST 
: IF NO, CONTINUE 
; IF YES, OU Al.LNODE 


; IS IT ‘LOOPPATR' TEST 
s IF NO, CONTIAVE 
s IF YES, DO LO WPAIR 


: IS IT ‘OIRECT TEST 
s IF NO, CONTINUE 
s IF YES, DO OIRECT 


s ELSE, ITS ‘PATTERN’ TEST 

s SEE IF PASS SET FOR INDEF INATE 
s IF YES, LOOP 

1 HAVE WE DONE ALL PASSES? 

; IF NO, LOOP 


-(SP) 


E13 
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5625 3 

5626 sACTION ROUTINE TO SET ‘RUN ALL’ FLAG 

5627 3 

5628 

5629 104356 012737 000032 002310 ACTRNA: MOV @CRNALL ,KEYWO1 3 SET FLAG 

ety 104364 000207 RTS PC 

5632 104366 RUNALL: CALL OIRCOM ; RUN LOOPDIRECT TEST 

5633 104374 PsPOP Ri 3: CHECK RESULTS 

5634 104376 001415 BEQ 5$ s IF OK, BRANCH 

5635 104400 022701 000001 CMP #1,R1 3 ELSE, WAS TABLE EMPTY? 

5636 104404 001410 BEQ 3$ 3 IF YES, DON’T PRINT ABORT MESSAGE 

5637 104406 PRINTS #PASABT 3 ELSE ABORT TEST AND PRINT MESSAGE 
104406 012746 061526 MOV @PASABT, -( SP) 
104412 012746 000001 MOV 1,-CSP) 
104416 010600 MOV SP ,RO 
104420 104416 TRAP CSPNTS 
104422 062706 000004 04 ,SP 

5638 104426 000137 104774 3$: JMP 32$ 

5639 104432 012737 002404 002402 S$: MOV @NODTBL , SLOT : MOVE NODE TABLE ADDRESS TO SLOT 

5640 104440 CALL FULSLT 3: FINO FIRST ENTRY 

5641 104446 013701 002402 MOV SLOT ,R1 s ANO PUT TARGET ADDRESS INTO R1 

5642 104452 013737 002374 050562 103: MOV PsCPYS,CPYCNT s SET UP LOOP FOR NO. OF COPIES 

5643 104460 062737 000010 002402 ADD #10,SLOT 3 UPDATE SLOT 

5644 104466 CALL FULSLT 3; GET NEXT ASSIST NODE FROM TABLE 

5645 104474 013702 002402 MOV SLOT ,R2 

5646 104500 022737 177777 002402 CMP #-1,SLOT : SEE IF AT ENO OF TABLE 

5647 104506 001515 BEQ 253 3; IF YES, BR 

5648 104510 15$: CALL BLOFAS R1,SLOT ; BUILD FULL ASSIST MESSAGE 

5649 104524 CALL XMIT 3 TRANSMIT MESSAGE 

5650 104532 P$POP R3 ; CHECK RESULTS 

5651 104534 001404 BEQ 17$ ; IF OK, CONTINUE 

5652 104536 ERRHRD 37,EMSG24 3 PRINT ERROR MESSAGE 
104536 104456 TRAP CSERHRD 
104540 000045 . WORD 37 
104542 065366 .WORD EMSG24 
104544 000000 -WORD O 

5653 104546 178: CALL BINHEX R1,06, 0STRBUF , PRINT ERROR MESSAGE 

5654 104566 CALL BINHEX R2,06,0STRBUL 

5655 104606 PRINTB @TSTMS4, @ARGTY7, OSTRBUF , @ARGTY6, @STRBU1 ; ASSIST NODE = 
104606 012746 002344 MOV @STRBU1, -( SP) 
104612 012746 062603 MOV @ARGTY6, -C SP) 
104616 012746 002322 MOV @STRBUF , -(SP) 
104622 012746 062613 MOV @ARGTY7,-(SP) 
104626 012746 061624 MOV @TSTMS4, -( SP) 
104632 012746 000005 MOV oS, -(SP) 
104636 010600 MOV SP ,RO 
104640 104414 TRAP CSPNTB 
104642 062706 000014 ADD @14,SP 

5656 104646 CALL RUNCOM ; DO RECEIVE LOOP 

5657 104654 PsPOP R4 3 CHECK RESULTS 

5658 104656 001405 BEQ 21% s IF OK, LOOP SOME MORE 

5659 104660 20%: ERRHRD 28,EMSG42,ERR3 ; ELSE PRINT ERROR MESSAGE 
104660 104456 TRAP CSERHRD 
104662 000034 . WORD 28 
104664 066353 . WORD EMSG42 


104666 067604 -WORD ERRS3 


Fis 
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5660 
5661 


105176 


000410 


012746 
012746 


062701 
010137 


013701 
022737 
001227 


012737 
000207 


022701 
001400 


005001 
012737 


022737 
001015 


012746 
012746 


000545 
012737 
013737 


022737 
001530 


012746 
012746 
012746 
012746 


062013 
000001 


000004 
050562 


000010 
002402 


002402 
177777 


002404 
177777 


053701 
053632 
000002 


000006 
000001 


002404 
002374 


177777 


002322 
062173 
061571 
000003 


002402 


002310 


002402 
002402 


002402 
050562 


002402 


21%; 


1018: 


253: 


328: 

3 
;ACTION 
i 
ACTOIR: 
RUNDIR: 


108: 
DIRCOM: 


9%: 
108: 


158%: 


BR 
PRINTB 


8 
PRINTF 


ALL 
PRINTB 


101% 
@OKFU 


CPYCNT 
15$ 
oo #2,R1,SLOT 


TO SET ‘RUN LOOP DIRECT’ 


@COIR ,KEYWO1 
PC 


OIRCOM 
R1 


#1,R1 
10$ 


R1 

@NODTBL , SLOT 

— SLT 
@-1,SLOT 


93 
@TABEMT , @NOD 


#1,R1 

32% 

@NODTBL , SLOT 
PsCPYS,CPYCNT 

FULSLT 

@-1,SLOT 

32% 

BINHEX SLOT, 0€,@STRBUF 
@TSTMS2, DIRECT, OSTRBUF 


ADD 
DECREMENT ‘COPIES’ COUNTER 
IF MORE TO DO, LOOP 
ELSE, UPDATE SUMMARY TABLE 


POINT R1 TO NEXT TARGET NODE 
UPDATE SLOT 
GET ADORESS FROM TABLE 


SEE IF END OF T 


SEQ 161 


@OKFU, -CSP) 


#1, -(SP) 


ABLE 
IF NO, CONTINUE ELSE, FINISHED 


FLAG 


SET FLAG 
CALL COMMON CODE 
WAS TABLE EMPTY? 
IF YES, DON’T PRINT 


CLEAR RESULTS REGISTER 


MOVE NODE TABLE ADDRESS TO SLOT 


SEE IF TABLE EMPTY 
IF NO CONTINUE 


ELSE, PRINT “TABLE we * 4g MESSAGE 


ADD 
PUT ‘TABLE EMPTY’ INDICATOR 


SET UP FOR NO. OF COPIES 
GET NEXT NODE IN TABLE 
SEE IF AT END OF TABLE 
IF YES, EXIT 
PRINT ADORESS BEING TESTED 
NODE ADORESS 


NOD , -¢ 
@TABEMT, 


eS 


TRBUF , - 


eTSTMSe, - 


03, 


-(SP) 


SP) 
-CSP) 


(SP) 
@OIRECT, -(SP) 
(SP) 


G13 
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105202 010600 MOV SP,RO 
105204 104414 TRAP CsPNTB 
105206 062706 000010 ADD #10,SP 

$702 105212 022737 000005 002310 CMP @CPATRN,KEYWO1L 

5703 105220 001016 BNE 16% 

5704 105222 013701 002370 MOV PSTYPE,R1 

$705 105226 006301 ASL R1 

5706 105230 062701 003262 ADD OMSGTAB,R1 

5707 105234 PRINTB @MESPA1,(R1) 
105234 011146 MOV €R1),-CSP) 
105236 012746 062125 MOV OMESPA1, -( SP) 
105242 012746 000002 MOV @2,-(SP) 
105246 010600 MOV SP ,RO 
105250 104414 TRAP CSPNTB 
105252 062706 000006 ADD 06,SP 

5708 105256 16$: CALL BLOLD' SLOT s CALL BUILD LOOPDIRECT SUBROUTINE 

5709 105270 CALL XMIT 3; TRANSMIT LOOPDIRECT MESSAGES 

5710 105276 PSPOP Re 3; GET RESULTS, R2 = SUCCESS/FAILURE 

$711 105300 001405 BEQ 268% 3; IF OK, EXIT 

5712 105302 258: ERRHRD 26,EMSG24 ; ELSE PRINT ERROR MESSAGE 
105302 104456 TRAP CSERHRD 
105304 000032 «WORD 26 
105306 065366 -WORD EMSG24 
105310 000000 -WORD O 

5713 105312 000700 BR 10$ 

$714 105314 268: CALL RUNCOM ; DO RECIEVE LOOP 

5715 105322 PSPOP R4 ; GET RESULTS 

$716 105324 001407 BEQ 9% ; IF NO ERRORS, CONTINUE 

5717 105326 ERRHRD 27,EMSG34,ERR2 
105326 104456 TRAP CSERHRD 
105330 000033 -WORD 27 
105332 065732 -WORD EMSG34 
105334 067516 -WORD ERR2 

5718 105336 012701 177777 MOV @-1,R1 ; PUT ERROR INDICATOR INTO R1 

5719 105342 000410 BR 101$ 

5720 105344 29%: PRINTB #@0K 3; RESPONSE OK 
105344 012746 061661 MOV @0K , -C SP) 
105350 012746 000001 MOV @1,-CSP) 
105354 010600 MOV SP RO 
105356 104414 TRAP CSPNTB 
105360 062706 000004 ADD 04 

5721 105364 005337 050562 1018: DEC CPYCNT : DECREMENT ‘COPIES’ COUNTER 

5722 105370 001274 BNE 15$ ; IF MORE TO DO, LOOP 

5723 105372 CALL WRITES #1,SLOT ; ELSE,UPDATE SUMMARY TABLE 

5724 105410 062737 000010 002402 303: ADD #10,SLOT ; INCREMENT TO NEXT NODE TABLE ENTRY 

5725 105416 000636 BR 10$ 

5726 105420 328: RETURN R1 

5727 

5728 

5729 ; 

5730 sACTION ROUTINE TO SET ‘RUN LOOPPAIR' FLAG 

3732 

5733 105424 012737 000033 002310 ACTRNL: MOV @CLUPPR ,KEYWO1 ; SET FLAG 

tnd 105432 000207 RTS PC 


5736 105434 005037 050552 RUNLUP: CLR TEMP1 : CLEAR ‘HEADER PRINTED’ FLAG 


H13 


Ree wae ee 


5753 


105770 


012737 


022737 
001014 


012746 
012746 


012737 
013737 


02273? 


012746 


002404 
177777 
053701 


053632 
000002 


000006 
106524 
002404 
002374 
177777 
106524 


002402 
000007 


065637 
000001 


000004 
106524 
000010 
000000 
177777 


106524 
000007 


106440 


002344 


002402 
002402 


000001 


9$: 
108: 


11$: 


17$: 


18$: 


1128: 


1108: 


20%: 


21%: 


223: 


MOV 
CALL 
CMP 


BNE 
PRINTF 


PRINTF 


@NODTBL , SLOT 

Ana 
@-1,SLOT 

9$ 


@TABEMT , @NOD 


30% 
@NODTBL , SLOT 
PsCPYS,CPYCNT 
FULSLT 
@-1,SLOT 

11% 

30% 

SLOT,R1 
7(R1), OCTARGT 
18% 

@EMSG32 


@PASABT 


30$ 
R1,R2 
#10,R2 
| a 


12s 
@-1,(R2) 

110$ 

30% 
ee 
BLDAST R2,R1 
XMIT 
R4 


22% 
26,EMSG24 


28% 


BINHEX R1,06,@STRBUF 
BINHEX R2,06,STRBU1 
PRINTB @TSTMS4, @ARGTY7, @STRBUF , DARGTY6, @STRBU1 ; 


T4Z 


SEQ 163 
MOVE NODE TABLE ADDRESS TO SLOT 
SEE IF TABLE EMPTY 


IF NO, CONTINUE 
ELSE, PRINT “TABLE EMPTY” MESSAGE 


MOV ~-C 

MOV @TABEMT, -(SP) 
MOV #2,-C(SP) 

MOV SP ,RO 

TRAP CSPNTF 


MO 
SET UP FOR NO. OF 


IF YES, EXIT 


MOVE SLOT TO R1 
SEE IF TARGET NODE 
IF YES, BRANCH 
ELSE PRINT ERROR MESSAGE 


MOV ®EMSG32, -CSP) 
MOV #1,-(SP) 

MOV SP ,RO 

TRAP CSPNTF 


MOV @PASABT, -( SP) 
MOV #1,-C(SP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD 04 ,SP 


EXIT 
POINT R1 TO TARGET NODE 
AND R2 TO ASSIST NODE 


IS R2 POINTING TO AN ASSIST NODE? 
IF NOT, ERROR, ELSE CONTINUE 
BUILD TRANSMIT ASSIST MESSAGE 
TRANSMIT MESSAGE 
GET RESULTS, R2 = SUCCESS/FAILURE 
IF OK, EXIT 
ELSE PRINT ERROR MESSAGE 
TRAP 


CSERHRD 
-WORD 26 
-WORD EMSG24 
-WORD O 


PRINT ERROR MESSAGE 


ASSIST NODE = 
MOV @STRBU1L, -(SP) 


105774 


012746 
012746 
012746 
012746 
012746 
010600 
104414 
062706 


001405 


104456 
000034 
066174 
067604 
000410 


012746 
012746 
0600 


012746 
012746 
010600 


062603 
002322 
062613 
061624 
000005 


000014 


061702 


061746 


23%: 


1018: 


25%: 


102%: 


BR 
PRINTB 


Cc 
PRINTB 


BR 
PRINTB 


CALL 
CALL 
P$POP 
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RUNCCM 
R3 


23% 
28 ,EMSG40 ,ERR3 


101$ 
@OKRE 


BLDAST R1,R2 
XMIT 

R4 

21% 


BINHEX R1,06, eSTRBUF 
BINHEX R2,06,@STRBU1 
@TSTMS4, @ARGTY7, @STRBUF , BARGTYE, @STRBU1 ; 


RUNCOM 
R3 


ess 
28, EMSG41,ERR3 


102$ 
#OKTR 


BLOFAS R1,R2 
XMIT 
R4 


iA ~>? 


s DO RECIEVE LOOP 


AD 
s BUILD FULL ASSIST MESSAGE 
3; TRANSMIT MESSAGE 


CHECK RESULTS 
IF OK, CONT. 


ADD 
BUILD RECEIVE ASSIST MESSAGE 
TRANSMIT MESSAGE 


CHECK RESULTS 


SEQ 164 


) 
cance? tap % 
) 


IF OK CONTINUE, ELSE REPORT ERROR 


PRINT ERROR MESSAGE 


dO 
GET RESULTS 
IF OK, CONT. 


CHECK RESULTS 


RECEIVE LOOP 


ASSIST a 


CSERHRD 

28 

EMSG41 
ERR3 

@OKTR, -CSP) 
#1,-CSP) 
P,RO 
CSPNTB 
@4,SP 
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S795 106306 001402 BEQ 26% s IF OK CONTINUE, ELSE REPORT ERROR 

5796 106310 000137 105714 JMP 21% 

S797 106314 268: CALL BINHEX R1,%6,0STRBUF PRINT ERROR MESSAGE 

S798 106334 CALL BINHEX R2,#6,0STRBU1 

5799 106354 PRINTB @TSTMS4, @ARGTY7 , @STRBUF , DARGTYE, @STRBU1 ; ASSIST NODE = 
106354 012746 002344 MOV @STRBU1,-CS 
106360 012746 062603 MOV @ARGTY6,-CS 
106364 012746 002322 MOV @STRBUF , -CSP 
106370 012746 0626135 MOV @ARGTY7,-CSP 
106374 012746 061624 MOV @TSTMS4, -CSP 
106400 012746 000005 MOV #5, -CSP) 
106404 010600 MOV SP ,RO 
106406 104414 TRAP CSPNTB 
106410 062706 000014 ADO #14,SP 

S800 106414 CALL RUNCOM s DO RECEIVE LOOP 

S801 106422 PsPOP R3 3+ CHECK RESULTS 

S802 106424 001405 BEQ 28s ; IF NO ERRORS, CONT 

5803 106426 ERRHRD 28,EMSG42,ERR3 
106426 104456 TRAP CSERHRD 
106430 000034 -WORD 28 
106432 066353 -WORD EMSG42 
106434 067604 «WORD ERR3 

5804 106436 000410 BR 103$ 

S805 106440 28%: PRINTB @OKFU 
106440 012746 062013 MOV @OKFU, -CSP) 
106444 012746 000001 MOV #1,-C(SP) 
106450 010600 MOV »RO 
106452 104414 TRAP C$PNTB 
106454 062706 000004 ADD 04,SP 

5806 106460 005337 050562 103$: DEC CPYCNT ; DECREMENT ‘COPIES’ COUNTER 

5807 106464 001402 BEQ 29% ; IF MORE TO DO, LOOP 

5808 106466 000137 105670 JMP 20$ 

5809 106472 29%: CALL WRITES #2,R1,R2 ; ELSE,UPDATE SUMMARY TABLE 

5810 106510 062702 000010 ADD #10,R2 

3811 106514 010237 002402 MOV R2,SLOT ; INCREMENT TO NEXT NODE TABLE ENTRY 

3812 106520 000137 105522 JMP os 

494 106524 30%: RETURN 

5815 106526 005737 050534 RUNCOM: TST RETRYS s SEE IF FAILED OVE TO EXCESSIVE COLLISIONS 

5816 106532 001120 BNE 38$ ; IF YES, BR, ELSE CONT. 

3817 106534 012704 003720 MOV @TIMERS ,R4 ; SET UP FOR 10 SECOND TIMOUT 

3818 106540 012714 000012 MOV #10. ,(R4) 

5819 106544 CLR Re ; CLEAR RESULTS REGISTER 

5820 106546 35$: BREAK 
106546 104422 TRAP CSBRK 

5821 106550 005714 TST (R4) : SEE IF TIME HAS EXPIRED 

5822 106552 001516 BEQ 40$ : _IF YES, BRANCH 

5823 106554 CALL RECEVE ; CHECK FOR ANSWER 

5824 106562 P$POP Ri s Re HOLDS NO. OF BUFFERS RECEIVED 

5825 106564 001770 BEQ 35% s IF NO BUFFERS RECIEVED, LOOP 

5826 106566 063737 050560 050510 ADD XFER,S.XFER s UPDATE BYTES TRANSFERED SUM. COUNTER 

5827 106574 005237 050476 INC S.REC ; UPDATE PACKETS RECEIVED SUM. COUNTER 

5828 106600 013703 003764 MOV RRGNXT ,R3 ; GET RECEIVE RING POINTER 

5829 106604 CALL GETRNX @RRGNXT s UPDATE POINTER 

5830 106616 016301 MOV 6(R3),R1 ; GET PACKET LENGTH FROM DISCRIPTOR 

5831 106622 042701 170000 BIC #170000 ,R1 s ZERO OUT EXCESS INFOR 

5832 106626 162701 000004 SUB 04,R1 s SUBTRACT CRC BYTES 


szca a T=! 
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5833 106632 020137 050566 CMP R1,BUFLEN s CHECK FOR LENGTH ERROR 

S834 106636 001423 BEQ 37$ + IF OK, BR 

S835 106640 005237 050502 INC S.LEN s ELSE, UPDATE LENGTH ERRORS COUNTER 

5836 106644 012737 062342 002312 MOV @LENGTH,KEYWD2 ; MOVE ‘LENGTH’ TO ERROR INDICATOR 

5837 106652 012702 177777 MOV #-1,R2 : INDICATE ERROR TO R2 

5838 106656 PRINTX @LGERMS,BUFLEN,R1 + PRINT LENGTH ERROR MESSAGE 
106656 010146 MOV Ri, -C(SP) 
106660 013746 050566 MOV BUFLEN, -( SP) 
106664 012746 067117 MOV @LGERMS, -( SP) 
106670 012746 000003 MOV #3,-CSP) 
106674 010600 MOV SP ,RO 
106676 104415 TRAP CSPNTX 
106700 062706 000010 ADD #10,SP 

5839 106704 000450 BR Sos ; _AND EXIT 

5840 106706 016303 000002 37$: MOV 2(R3),R3 s POINT R3 TO MESSAGE BUFFER 

5841 106712 066303 000016 ADD 16(R3),R3 s POINT R3 TO DATA AFTER SKIP COUNT 

5842 106716 062703 000030 ADD #30,R3 ; POINT R3 TO FIRST DATA BYTE 

5843 106722 063737 002372 050506 ADD P$SIZE,S.BYTE ; UPDATE BYTES COMPARED SUMMARY COUNTER 

5844 106730 CALL DATCMP P$SIZE,CMPBUF,.R3 ; CHECK FOR DATA COMPARE ERRORS 

5845 106750 PsPOP R3 ; CHECK RESULTS 

5846 106752 001425 BEQ 50$ ; IF ERRORS, 

5847 106754 060337 050504 ADD R3,S.COMP ; UPDATE COMPARE ERRORS SUMMARY COUNTER 

5848 106760 012737 062351 002312 MOV @COMPAR , KEYWO2 ; MOVE ‘COMPARE’ TO ERROR INDICATOR 

5849 106766 012702 177777 MOV @-1,R2 ; INDICATE ERROR TO R2 

Sone 106772 000415 BR Sos 

S8S2 106774 012737 062316 002312 38%: MOV RETRY ,KEYWD2 : MOVE ‘EXCESSIVE COLLISIONS’ TO ERROR INCICATOR 

S853 107002 012702 177777 MOV #-1,R2 s INOICATE ERROR IN R2 

nd 107006 000407 BR 50$ 

5856 107010 005237 050500 40$: INC S.NREC ; UPDATE MESSAGES NOT RECEIVED COUNTER 

S857 107014 012737 062302 002312 MOV @NORESP , KEYWD2 : MOVE ‘NO RESPONCE’' TO ERROR INDICATOR 

cone 107022 012702 177777 MOV #-1,R2 ; INDICATE ERROR TO R2 

5860 107026 50$: RETURN R2 3; RETURN 

5861 

5862 

5863 ; 

aos sACTION ROUTINE TO SET ‘RUN PATTERN’ FLAG 

3 

5866 

5867 107032 012737 000005 002310 ACTPAT: MOV @CPATRN,KEYWO1 3SET FLAG 

5868 107040 000207 RTS PC 

5869 

5870 

5871 107042 RUNPAT: P$PUSH PSTYPE 3 SAVE TYPE PARAMETER 

5872 107046 005037 002370 CLR PSTYPE ; SET TYPE TO FIRST TYPE 

5873 107052 S$: CALL OIRCOM : SEND MESSAGES 

5874 107060 PsPOP R1 ; GET RESULTS TO KEEP STACK IN ORDER 

5875 107062 001403 BEQ 10$ ; IF OK, CONT 

5876 107064 022701 000001 CMP #1,R1 ; ELSE, WAS TABLE EMPTY 

5877 107070 001406 BEQ 15$ s IF YES, RETURN 

5878 107072 005237 002370 10$: INC PS$TYPE s SET TO NEXT TYPE 

5879 107076 022737 000005 002370 CMP 05 ,PSTYPE s SEE IF DONE ALL OF THEM 

5880 107104 002362 BGE S$ s IF NOT, DO MORE 

5881 107106 15$: P$POP PSTYPE : RESTORE MESSAGE TYPE 


5882 107112 RETURN 


L13 


er een ee 


5892 


5906 


107114 
107120 
107122 
107126 
107126 
107132 
107136 
107140 
107142 
107146 
107146 


107310 


013701 
006301 
062701 


012746 


013746 


012737 
012737 
012737 


012746 


002374 
002372 


055276 
000004 


000012 
003160 


000000 
001000 
000001 


053716 
000001 


002370 ACTCMS: MO 
002372 


002374 


; 
sACTION ROUTINE TO SHOW THE CURRENT MESSAGE PARAMETERS 


SEQ 167 


ACTSMS: MOV PSTYPE,R1 sGET MESSAGE TYPE INTO Ri 
ASL R1 sMULTIPLY BY 2 
ADD @MSGTAB,R1 sADD MESSAGE TABLE OFFSET 
PRINTF #@MSGPRM sPRINT MESSAGE PARAMETER MESSAGE 
MOV @MSGPRM, -( SP ) 
MOV P,RO 
TRAP CSPNTF 
@4,SP 
PRINTF @MSG4,(R1),P$SIZE,.PSCPYS sPRINT PARAMETERS 
MOV PSCPYS,-C(SP) 
MOV P$SIZE,-(SP) 
MOV CR1),-CSP) 
MOV @MSG4 , -(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #12,SP 
CLRB P$NNUF 
RTS PC 
sACTION ROUTINE TO CLEAR THE CURRENT MESSAGE PARAMETERS AND 
sRESET THEM TO THE DEFAULT VALUE 
b 
Vv @ALPHA ,P$TYPE sRESET TYPE 
MOV #512. ,P$SIZE sRESET SIZE 
MOV @1,P$CPYS sRESET COPIES 
PRINTF #@CLRMSG ;PRINT MESSAGE PARAMETERS RESET MESSAGE 
MOV @CLRMSG, -(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD @4,SP 
PRINTF @MSG4,MSGTAB,PS$SIZE,PSCPYS ;PRINT PARAMETERS 
MOV PSCPYS,-CSP) 
MOV P$SIZE,-CSP) 
MOV MSGTAB, -( SP) 
MOV @MSG4, -( SP) 
MOV @4,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #12,SP 


CLRB P $NNUF 
RTS PC 


; 
sACTION ROUTINE TO SET SHOW COUNTERS FLAG 
; 


KA4 7 


;CLEAR NOTNUF FLAG 
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$914 
$915 
$916 
$917 
5918 
$919 
$920 
$921 
$922 


$923 


5924 
$925 


5926 
5927 


5928 


5929 


5930 
5931 


107312 
107324 
107326 
107330 


107334 
107356 
107356 
107362 
107366 
107372 
107374 
107376 
107402 
107402 
107406 
107412 
107416 
107420 
107422 
107426 
107440 
107440 
107444 
107450 
107454 
107456 
107460 
107464 
107476 
107476 
107502 
107506 
107512 
107514 
107516 
107522 
107522 
107526 
107532 
107536 
107540 
107542 
107546 
107546 
107552 
107556 
107562 
107564 
107566 
107572 
107604 
107604 
107610 
107614 


001402 
000137 


012746 
012746 


012746 
012746 
012746 
010600 
104417 
062706 


012746 
012746 
012746 
010600 
104417 
062706 


013746 
012746 


013746 
012746 
012746 
010600 
104417 
062706 


012746 
012746 
012746 


110356 


ACTCNT: CALL 
P$PoP 
BEQ 
JMP 


21s: CALL 
PRINTF 


PRINTF 


CALL 
PRINTF 


CALL 
PRINTF 


PRINTF 


PRINTF 


CALL 
PRINTF 
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FUNCT #RDCNTS 
Ri 


21$ 
40$ 


BINHEX @PHYADR, #6, #STRBUF 


@CNTROO, OSTRBUF 


@CNTRO1,UCB12+2 


BINDEC #UCB12+4 
@CNTRO2, ODECSTR 


BINDEC #UCB12+10 
@CNTROS, @DECSTR 


@CNTRO4 ,UCB12+14 


@CNTROS ,UCB12+16 


BINDEC #UCB12+20 
@CNTROG, #DECSTR 


sREAD COUNTERS 
sCHECK RESULT 


sBRANCH IF ERROR 
sPRINT COUNTER INFO 
sGET ADDRESS INTO ASCII 


SEQ 168 


@STRBUF , -CSP ) 
@CNTROO, -C SP) 


UCB12+2, -(SP) 
@CNTRO1, -(SP) 
#2, -(SP) 


@DECSTR, -CSP) 
#CNTRO2, -CSP) 
#2, -C(SP) 


UCB12+14,-C(SP) 
@CNTRO4, -CSP) 
#2,-CSP) 

P,RO 

CS$PNTF 

#6,SP 


UCB12+16,-(SP) 
#CNTROS, -(SP) 


#DECSTR, -(SP) 
#CNTROG, -CSP) 
#2, -(SP) 
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5932 
5933 


5934 


$935 


5936 
5937 


5938 
5939 


5940 
5941 


5942 
5943 


107620 
107622 
107624 
107630 
107642 


110122 


010600 
104417 
062706 


012746 


012746 


012746 
012746 
012746 
010600 
104417 
062706 


012746 
012746 


050210 
063367 
000002 


000006 
050212 


063442 
000002 


CALL 
PRINTF 


PRINTF 


PRINTF 


CALL 
PRINTF 


CALL 
PRINTF 


CALL 
PRINTF 


CALL 
PRINTF 


N13 
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BINDEC #UCB12+24 


#CNTRO7,@DECSTR 


#CNTROS ,UCB12+30 


#CNTRO9,UCB12+32 


BINDEC #UCB12+34 
#CNTR10,@DECSTR 


BINDEC #UCB12+40 
#CNTR11,@DECSTR 


BINDEC #UCB12+44 
@CNTR12,@DECSTR 


BINDEC #UCB12+50 
oCNTR13,@DECSTR 


SEQ 169 


SP,RO 
CSPNTF 
%6,SP 


#DECSTR, -CSP) 
@CNTRO7, -CSP) 
#2, -(SP) 


UCB12+30,-CSP) 
@CNTROB, -CSP) 
#2, -(SP) 

SP ,RO 

CSPNTF 

#6, SP 


UCB12+32,-CSP) 
@CNTROY, -CSP) 
#2, -C(SP) 

SP ,RO 

CSPNTF 

#6,SP 


@DECSTR, -CSP) 
#CNTR10, -(SP) 
#2, -(SP) 


@DECSTR, -CSP) 
@CNTR11,-CSP) 


@DECSTR, -C SP) 
@CNTR12, -CSP) 
e2, -(SP) 


@DECSTR, -(SP) 
@CNTR13, -CSP) 
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5944 110126 CALL BINDEC UCB12+54 

5945 110140 PRINTF #CNTR14,@DECSTR 
110140 012746 075200 MOV @DECSTR, -(SP) 
110144 012746 063735 MOV @CNTR14, -(SP) 
110150 012746 000002 MOV 2, -(SP) 
110154 010600 MOV SP ,RO 
110156 104417 TRAP CSPNTF 
110160 062706 000006 ADO 06 ,SP 

5946 110164 CALL BINDEC #UCB12-60 

5947 110176 PRINTF @CNTR1S,@DECSTR 
110176 012746 075200 MOV @DECSTR, -(SP) 
110202 012746 063771 MOV @CNTR15, -(SP) 
110206 012746 000002 MOV @2,-(SP) 
110212 010600 MOV SP ,RO 
110214 104417 TRAP CSPNTF 
110216 062706 000006 ADD 6, SP 

5948 110222 CALL BINDEC UCB12+64 

5949 110234 PRINTF @CNTR16,0DECSTR 
110234 012746 075200 MOV @DECSTR, -( SP) 
110240 012746 064033 MOV @CNTR16, -(SP) 
110244 012746 000002 MOV @2, -(SP) 
110250 010600 . 
110252 104417 TRAP CSPNTF 
110254 062706 000006 ADO @6.SP 

5950 110260 PRINTF @CNTR17,UCB12+70 
110260 013746 050250 MOV UCB12+70, -(SP) 
110264 012746 064101 MOV @CNTR17,-CSP) 
110270 012746 000002 MOV @2,-(SP) 
110274 010600 MOV 2RO 
110276 104417 TRAP CSPNTF 
110300 062706 000006 ADO #6 ,SP 

5951 110304 PRINTF @CNTR18,UCB12+72 
110304 013746 050252 MOV UCB12+-72, -(SP) 
110310 012746 064154 MOV @CNTR18, -(SP) 
110314 012746 000002 MOV @2,-(SP) 
110320 010600 MOV SP ,RO 
110322 104417 TRAP CSPNTF 
110324 062706 000006 ADD @6.,SP 

5952 110330 PRINTF @CNTR19,UCB12+74 
110330 013746 050254 MOV UCB12+74, -(SP) 
110334 012746 064221 MOV @CNTR19, -(SP) 
110340 012746 000002 MOV @2,-C(SP) 
110344 010600 MOV SP ,RO 
110346 104417 TRAP CSPNTF 
110350 062706 000006 ADD @6,SP 

oes 110354 000404 BR 50$ 

5955 110356 403; ERRHRD 31,EMSG31 
110356 104456 TRAP CSERHRD 
110360 000037 -WORD 31 
110362 065576 -WORD EMSG31 

eens 110364 000000 WORD O 

5957 110366 105037 003160 S0$; CLRA P SNNUF 

$958 110372 000207 RTS PC 

5959 

5960 


rl 4A A 
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é 
sACTION ROUTINE TO PRINT OUT THE NODE TABLE 


6000 


110374 


105037 
012737 


022737 
001437 


012746 


022737 
001432 


062737 
000751 


012746 
012746 


105037 


012746 


003160 
002404 
177777 


053462 
000001 


000004 


177777 


000010 


053701 
053632 
000002 


000006 


003154 


002404 


002402 
002402 


002402 


002402 


ACTSNO: CLRB P SNNUF 
MOV @NODTBL , SLOT 
CALL FULSLT 
MP @- 1 7 SLOT 


C 
BEQ 158 
PRINTF @NTBHOR 


108: CALL FULSLT 
CMP @-1,SLOT 
BEQ 20% 
CALL } Pate SLOT, 06, @STRBUF 
CALL PRTNOD 
~ . » SLOT 
158; PRINTF oTABEMT, @NnO0D 


208; RTS PC 


SEQ 171 


sMOVE NODE TABLE ADDRESS INTO SLOT 
sSEE IF TABLE EMPTY 
sIF YES, DON’T PRINT HEADER 


sPRINT NODE TABLE HEADER 


MOV ONTBHOR, -( SP) 
MOV @1,-(SP) 
MOV SPR 


ADD 4 ,SP 
sFINO LOCATION IN TABLE WITH AN ADDRESS 
sCHECK IF AT END OF TABLE 

sIF YES, RETURN 

HELSE, PUT ASCII sy INTO BUFFER 
iPRINT NODE TABLE EN 

sINCR. SLOT TO POINT. TO NEXT TABLE ENTRY 
sCONTINUE UNTIL ALL ENT°IES PRINTED 


MOV @NOD, -( SP) 
MOV @TABEMT, -( SP) 
MOV @2,- SP) 

MOV SP ,RO 


sRETURN 


sACTION ROUTINE tree CLEAR A NODE SPECIFIED BY NODE LOGICAL NAME 


FROM THE NODE T 
; 


ACTCNL: P$PUSH R2 
MOV 


PSNUM,R2 
ASL R2 
ASL R2 
ASL R2 
ADO @NOOTBL ,R2 
CLR (R2)+ 
CLR (R2)> 
CLR (R2)> 
CLR (R2) 
PSPOP Re 


CLRB P SNNUF 
PRINTF @LOGDEL ,P$NUM 


RTS PC 


rma A 


sSAVE R2 

sPUT NODE LOGICAL NUMBER INTO Re 
sMULTIPLY BY 8 

sNODE TABLE ADDRESS e 

s (LOG. NO. X 8) + @NODTBL 
sADD OFFSET 

;CLEAR ENTRY (8 BYTES) 


sRESTORE R2 
sCLEAR NOTNUF FLAG 
sPRINT MESSAGE ae 


PSNUM, -( SP) 
MOV @LOGDEL , -( SP) 
MOV SP RO 
TRAP CSPNTF 
ADD 06 ,SP 


sRE TURN 
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€001 

6002 3 

6003 sACTION ROUTINE TO INITIATE A UNA PORT COMMAND 

6006 110634 105037 003160 ACTFCT: CLRB P $NNUF sCLEAR NOTNUF FLAG 

6007 110640 CALL FUNCT P$NUM sCALL FUNCTION ROUTINE WITH FUNCTION CODE 

6008 110652 PSPOP Ri ;CHECK RESULTS 

6009 110654 001404 BEQ 1$ 3: IF OK EXIT 

6010 110656 ERRHRD 30,EMSG30 s ELSE REPORT ERROR 
110656 104456 TRAP CSERHRD 
110560 000036 - WORD 30 
110662 065531 «WORD EMSG30 
110664 000000 WORD 0 

6011 110666 690207 1$%: RTS PC 

6012 

6013 3 

6014 sACTION ROUTINE TO SAVE NODE TABLE 

6015 7 

6016 

6017 110670 ACTSAV: PSPUSH R2,R3 sSAVE R2 AND R3 

6018 110674 012702 002404 MOV @NODTBL ,R2 3SET REGISTERS FOR COPYING 

6019 110700 012703 002530 MOV @SAVTBL,R3 3sR2 = FROM. R3 = TO 

6020 110704 PRINTF @UNSMSG, @SAVED sPRINT ‘ TABLE SAVED’ MESSAGE 
110704 012746 054620 MOV @SAVED, -( SP) 
110710 012746 054561 MOV @UNSMSG, -( SP) 
110714 012746 000002 MOV @2,-C(SP) 
110720 010600 MOV SP ,RO 
110722 104417 TRAP CSPNTF 
110724 062706 000006 ADO ° 

6021 110730 000137 111012 JMP SAVCOM 

6022 

6023 3 

6024 sACTION ROUTINE TO UNSAVE NODE TABLE 

6025 3 

6026 

6027 110734 105037 003160 ACTUNS: CLRB P $NNUF sCLEAR ‘NOT ENOUGH’ FLAG 

6028 110740 P$PUSH R2,R3 sSAVE R2 AND R3 

6029 110744 121427 000057 CMPB (R4),057 

6030 110750 001002 BNE 5% 

6031 110752 000137 111024 JMP QUIT 

6032 110756 012703 002404 S$; MOV @NOOTBL ,R3 sSET REGISTERS FOR COPYING 

6033 110762 012702 002530 MOV @SAVTBL ,R2 ;R2 = FROM, R3 = 

6034 110766 PRINTF @UNSMSG, RESTOR sPRINT ' TABLE RESTORED: MESSAGE 
110766 012746 054627 MOV @RESTOR, -( SP) 
110772 012746 054561 MOV @UNSMSG, -( SP) 
110776 012746 000002 MOV @2,-(SP) 
111002 010600 MOV SP ,RO 
111004 104417 TRAP CSPNIF 
111006 062706 000006 06, SP 

6035 111012 012701 000050 SAVCOM: MOV @TBLLEN,R1 sMOVE TABLE LENGTH TO R1 

6036 111016 012223 108: MOV CR2)+,CR3)> sMOVE WORD 

6037 111020 005301 DEC R1 sDECREMENT COUNTER 

6038 111022 001375 BNE 10$ 3IF MORE, LOOP 

6039 111024 QUIT: P$POP R2,R3 ; ELSE, RESTORE COUNTERS 

6040 111030 105037 003160 CLRB P $NNUF 3 CLEAR ‘NOT ENOUGH’ FLAG 


6041 111034 000207 RTS PC 
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111106 
111110 


111112 


111212 


121427 
001002 
S204 


005002 


013700 
104434 


103413 


013746 
012746 


000030 
000001 


002366 


002366 
112120 
000002 


000002 
003154 
000002 


SEG 173 
3 
sACTION ROUTINE TO CLEAR SUMMARY TABLE 
3 
ACTCSU: CLRB P $NNUF sCLEAR 'NOT ENOUGH’ COUNTER 
P$PUSH R2 sSAVE Re 
MOV @STBLEN,R1 sMOVE TABLE LENGTH TO R1 
MOV @STATBL .R2 sMOVE SUMMARY TABLE ADDRESS TO R2 
5$: CLR (R2)> sCLEAR FIRST WORD 
DEC R1 3SEE IF FINISHED 
BNE 5$ ; IF NO, DO MORE 
PRINTF @TABCLR, &SUMM 3: ELSE, PRINT ‘TABLE CLEARED’ MESSAGE 
MOV @SUMM, ye SP) 
MOV @TABCLR, -( SP) 
MOV @2,-C(SP) 
MOV SP,RO 
TRAP CSPNTF 
#6,SP 
PSsPOP Re 3; AND RESTORE R2 
RTS PC 
3 
sACTION ROUTINE TO CHECK FOR PASS DEFAULT VALUE 
3 
ACTOFT: 
1%: CMPB CR4), 040 3SEE IF SPACES 
BNE 2s : IF NO, CONT. 
INC RG 3 ELSE, POINT TO NEXT CHAR 
BR 1$ : ANO CHECK AGAIN 
2s: CMPB (R4),00 :SEE IF DEFAULT VALUE 
BNE 108 ; IF NO, BR 
MOV 30,2(R3) ; IF YES, POINT R3 TO SKIP CHECK PASS COUNT 
MOV @1,P$NUM sSET DEFAULT TO 1 
BR 15$ sRETURN 
108: MOV 04,2(R3) sPOINT R3 TO CHECK FOR PASS COUNT 
15$: RTS PC 
é 
sACTION ROUTINE TO READ A FILE FROM EXTERNAL MEDIA ONTO THE NODE TABLE 
3 
ACTUSF : 
PSPUSH R2 sSAVE Re 
CLR R2 sINITIALIZE R2 TO NODE TYPE ‘ TARGET’ 
OPEN CBOADR ;OPEN FILE, NAME=ASCIZ STRING 
MOV CBOADR ,RO 
TRAP CSOPEN 
BCOMPLE TE 1$ sRETURN IF SUCCESSFUL acs - 
PRINTF @®OPNERR,CBOADR 3; ELSE PRINT “OPEN ERROR" 
MOV CBOADR, -( SP) 
MOV OPNERR, -( SP) 
MOV e2,-C(SP) 
MOV ° 
TRAP CSPNTF 
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111214 
111220 
111220 
111222 


012746 
0600 


012746 


001411 


105102 
142702 
000706 
105037 


012746 
012746 


000006 
112114 
112116 


112233 
000001 


000004 


111570 
112202 
000002 


SEQ 174 
ADD 6 ,SP 
CLOSE s CLOSE FILE 
TRAP CsCLos 
1$; CALL ROLIN sREAD A LINE AT A TIME 
TST BAD sSEE IF AN ERROR DURING READ 
BNE 25% s BR ON ERROR TO LEAVE 
TST EOF F sSEE IF EOF BEFORE PROCESS 
BEQ 10$ sIF VALID, PROCESS 
PRINTF @E0OFFNOD s ELSE SAY ‘END OF FILE’ AND LEAVE 
MOV EOF FND, -CSP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04 ,SP 
BR 25% 
108; PRINTF @PLINE,OFILLIN sPRINT LINE READ FROM FILE 
MOV oF ILLIN, -(SP) 
MOV OPLINE , -(SP) 
MOV @2,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD 6 ,SP 
CALL EDPACK OF ILLIN, OADRBUF , 06 sPUT ADDRESS INTO BINARY 
PsPOP Ri ;CHECK RESULTS 
BEQ 12$ ; IF OK, BR 
PRINTF @CADERR s ELSE PRINT ERROR MESSAGE 
MOV @CADERR, -( SP) 
MOV @1,-(SP) 
MOV 2RO 
TRAP CSPNTF 
ADD @4,SP 
BR 25% s ANDO EXIT 
12s: MOvVB R2,NOOTY 3SET UP NODE TYPE 
COMB Re sSWITCH TYPE FOR NEXT TIME 
BICB @376,R2 
CALL ENTRNO sENTER IN NODE TABLE 
PsPOP Ri sGET RESULTS 
R i$ sREAD MORE ADDRESS 
25%: PsPOP R2 sRESTORE R2 


CLRB Ps 


NNUF ;CLEAR ‘NOT ENOUGH’ FLAG 
PRINTF @UNSMSG, ORESTOR 


sPRINT ‘TALBE RESTORED’ MESSAGE 
Vv 


RETURN 


.SBTTL READ LINE OF OPENED FILE 


THIS ROUTINE GETS BYTES FROM AN OPENED FILE UNTIL A CR IS ENCOUNTERED 
“EOF” AND “BAD” FLAGS ARE SET IF END-OF-FILE OR ERRORS ARE ENCOUNTERED 


NOTE: ASSUMING A ASCII TEXT FILE IS BEING READ, FOR EXAMPLE: 


fr A A 


@RESTOR, -(SP) 
@UNSMSG, - (SP) 
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READ LINE OF OPENED FILE 
tr 3 AA-00-03-00-01-AB<CR><LF> 
3 “5 
oi or ; AA-00-03-00-01-AB<CR><LF> 
3 
6122 3 WHAT YOU SEE READ BYTE-BY-BYTE IS: 
6123 3 "A, .-AB<CR><LF >A, . -AB<CR><LF>. .<0><0><0>..... 
6124 3 SO I MADE ASSUMPTION THAT SINCE SEE “O-PADDING” AFTER LAST CHAR TO 
6125 3 ENO-OF -FILEBLOCK, ANY CHARACTER THAT IS NOT “SPACE OR GREATER” OR A 
6126 ; <CR> OR <LF> THEN I‘'LL TAKE THAT AS ENO-OF -FILECTEXT), SET EOF -FLAG 
6127 F ANO LEAVE. 
6128 F 
6129 3 INPUTS: 
6130 3 FILLIN BUFFER TO HOLD LINE OF BYTES READ FROM OPENED FILE 
6131 F CCR NOT INCLUDED, O-BYTE TERMINATED) 
6132 3 OUTPUTS: 
6133 F BAD IF NON-ZERO, ERROR IN READING A BYTE FROM FILE 
6134 3 EOFF IF NON-ZERO, END OF FILE WAS ENCOUNTERED 
6135 ; FILLIN ASCIZ STRING THAT WAS READ AS CHAR-CR-LF STRING 
eist 3 (CR-LF REMOVED) 
6138 111442 012702 111570 ROLIN: MOV OFILLIN,R2 sPOINT R2 TO A LINE BUFFER 
6139 111446 005037 112114 CLR BAD sCLEAR FLAGS 
6140 111452 005037 112116 CLR EOFF 
6141 111456 1$: GETBYT (Re) 3GO GET A BYTE FROM INPUT FILE 
111456 104426 TRAP C$GETB 
111460 110012 MOVB RO,CR2) 
6142 111462 BCOMPLE TE es ;B8R IF READ-BYTE SUCESSFUL 
111462 103414 6CcS es 
6143 111464 4$: PRINTF @RDERR 3: ELSE PRINT “READ-ERROR” 
111464 012746 112154 MOV ORDERR, -(SP) 
111470 012746 000001 MOV #1,-CSP) 
111474 010600 MOV SP ,RO 
111476 104417 TRAP CSPNTF 
111500 062706 000004 ADD 04,SP 
6144 111504 012737 177777 112114 MOV #-1,BAD ; SET BAD-TRY FLAG AND LEAVE 
a 111512 000416 BR S$ 
6147 111514 122712 000015 2s: CMPB #15,(R2) 3IS THE CHARACTER A <CR> 
6148 111520 001756 BEQ 1$ ; BR IF YES (GO BACK TO GET <LF>) 
6149 111522 122712 000012 CMPB #12,(R2) 3IS THE CHARACTER A <LF> 
6150 111526 001410 BEQ S$ ; BR IF YES CTERMINATE AND LEAVE) 
6151 111530 122712 000040 CMPB 40,(R2) 3IS IT A “EOF” CEND-OF -FILEC( TEXT)) 
6152 ; CEOF =ANY NON-CHAR>37 EXCEPT CR,LF) 
6153 111534 101002 BHI 6$ ; BR IF YES 
6154 111536 005202 INC Re ; IF NO, LEAVE CHAR IN BUFFER 
ater 111540 000746 BR 1$ 3 ANO GO GET MORE CHARS 
6157 111542 012737 177777 112116 6%: MOV @-1,E0FF sIF YES, TERMINATE INPUT BUFF 
6158 : AND SET EOF -FLAG 
6159 111550 105012 5$: CLRB (R2) 
oor 111552 RETURN 
6162 111554 FILENM: .6BLKB 12. sBUFFER FOR FILE NAME 
6163 111570 FILLIN: .6LKB 132. sBUFFER FOR SINGLE LINE READ FROM FILE 
6164 111774 MATCH: .BLKB- 80. sBUFFER FOR WORD TO MATCH FROM FILE 
6165 112114 0Cc0000 BAD: -WORD O sERROR/NOT-FOUND FLAG WORD 


6166 112116 000000 EOFF; -WORD O sEND-OF -FILE FLAG (<>0 = EOF) 


ain a 


H14 


R DIA 4 -MAR - : - 
GEXACBO, PEUNA NI EXERCISE DIAG MACRO M1200 22 84 10:53 PAGE 30-29 SEQ 176 
6167 
6168 112120 045 116 045 OPNERR: .ASCIZ /sNSA?UNABLE TO OPEN “ST#A"?2/ 
112123 101 077 125 
112126 116 101 102 
112131 114 105 040 
112134 124 117 040 
112137 117 120 105 
112142 116 040 042 
112145 045 124 045 
112150 101 042 077 
112153 000 
6169 112154 045 116 045 RDERR: .ASCIZ /sSNSA?FILE READ ERROR?/ 
112157 101 077 106 
112162 111 114 105 
112165 040 122 105 
112170 101 104 040 
112173 105 122 122 
112176 117 122 077 
112201 000 
6170 112202 045 116 045 PLINE: .ASCIZ /sSNSAFILE LINE WAS: sNSTSN/ 
112205 101 106 111 
112210 114 105 040 
112213 114 111 116 
112216 105 040 127 
112221 101 123 072 
112224 045 116 045 
112227 124 045 116 
112232 000 
6171 112233 045 116 045 EOFFND: .ASCIZ /sNSAEND-OF-FILE FOUND, FILE READ/ 
112236 101 105 116 
112241 104 055 117 
112244 106 055 106 
112247 111 114 105 
112252 040 106 117 
112255 125 116 104 
112260 054 040 106 
112263 111 114 105 
112266 040 122 105 
112271 101 104 000 
6172 
6173 er 
re ; SELMSG OPERATOR SELECTED MESSAGE STORAGE 
3 
6176 ; THIS ROUTINE WILL TAKE THE OPERATOR SELECTED MESSAGE FROM THE COMMAND 
ef : LINE INPUT STRING BUFFER AND PUT IT INTO A BUFFER AT LOCATION OPSLEF. 
3 
6179 3 INPUTS. - Pi - ADDRESS OF OPERATOR SELECTED MESSAGE IN 
6180 3 INPUT STRING 
6181 ; EXPLICIT OUTPUTS - NONE 
6182 ; IMPLICIT OUTPUTS - THE BUFFER AT OPSLBF WILL CONTAIN THE ASCII 
6183 ; OPERATOR SELECTED INPUT STRING FOLLOWED BY 
6184 3 A NULL CHARACTER 
6185 : SUBORDINATE ROUTINES - NONE 
es ; CALLING PROCEEDURE - CALL SELMSG P1 ;INPUT ADDRESS OF ASCII STRING 
6187 3 REGISTER USAGE - Ri CONTAINS ADDRESS OF INPUT STRING 
6188 ; R2 CONTAINS ADDRESS OF OUTPUT STRING 
HY 
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READ LINE OF OPENED F 


112274 


112330 


112332 
112340 


012702 


112712 
010337 


113711 


003570 


112304 
000000 
003314 


000006 
002402 
002314 


002400 


gee > 
SELMSG: 


S$: 


10$: 


10$: 


I14 


R1 
MOV @OPSLBF ,R2 
R3 


TSTB CR1) 

BEQ 10$ 

MOVB (R1)+,CR2)+ 
= 


ENTRNO 


sPUT ADDRESS OF OPR. SEL ASCII STRING INTO R1 


sPUT ADDRESS OF OUTPUT BUFFER INTO R2 
sCLEAR CHARACTER COUNTER 

sCHECK FOR END OF STRING 

sGO TO 10% IF ENO 

iELSE, MOVE BYTE TO OUTPUT BUFFER 

;COUNT NUMBER OF CHARACTERS IN INPUT BUFFER 
sGO DO MORE CHARACTERS 

;PUT ZERO AT END OF OUTPUT BUFFER 


sSTORE NUMBER OF CHARACTERS FOR USE IN BUF. BUILDING 


ENTER NODE IN TABLE 


THIS ROUTINE ENTERS A NODE INTO THE NODE TABLE 


INPUTS 
EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 


SUBORDINATE ROUTINES 
CALLING PROCEEDURE 


: ee FINOSL 


PsPOP R1 


ADRB 
MOVB (R2)+,(R1)¢ 
R3 
BNE 10% 


R1 
MOVB NOOTY,(R1) 
P$PUSH #0 


FINOSL 
INPUTS 


EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 


SUBORDINATE ROUTINES 


NONE 

Pi - ZERO IF SUCCESSFUL, -1 IF TABLE FULL 
THE ADDRESS CONTAINED IN ADRBUF WILL BE 
ADDEO TO THE NODE TABLE IN THE FIRST 
AVAILABLE SLOT WITH THE NODE TYPE CONTAINED 
IN NOOTY (TARGET OR ASSIST) 

FINOSL - FIND EMPTY SLOT IN TABLE 

CALL _ENTRNO 

PSPOP P1 sOUTPUT GOOD/BAD RESULT 


sFIND AVAILABLE SLOT IN TABLE 

sCHECK IF TABLE FULL 

sIF NOT FULL BR TO S$ 

sELSE PUT FULL INDICATION ON STACK 
sRETURN 

sSET INCR. COUNTER TO 6 (BYTES) 

sMOV ADDRESS OF AVAILABLE SLOT TO R1 
sMOV ADDRESS OF NODE ADDRESS TO R2 
sMOV BYTE OF ADDRESS 

sDECR. COUNTER 

sCONTINUE UNTIL 6 BYTES TRANSFERED 
sSET POINTER TO NODE TYPE LOCATION 
sMOVE NODE TYPE INTO TABLE 

sPUT ADDRESS ADDED INDICATION ON STACK 
;RETURN 


FINO EMPTY SLOT IN NODE TABLE 
NONE 
NONE 
THE ADDRESS OF THE FIRST AVAILABLE SLOT IN THE 


NODE TABLE WILL BE LOCATED IN SLOT. THE 
PARAMETER STACK WILL CONTAIN -1 IF THE NODE 


TABLE IS FULL AND O IF AN EMPTY SLOT WAS FOUND 


SEQ 177 


READ LINE OF OPENED FILE 


S2 112410 


112414 
112420 
112422 
112426 
112432 
112434 
112434 
112440 
112444 
112450 
112452 
112454 
112460 
112464 
112466 
112472 
112476 


012702 
022712 
001422 
062702 
022712 
001370 


012746 


000404 
010237 


013701 
022711 


002404 
000000 


000010 
177777 


053701 
053560 
000002 


000006 


002402 


002402 
000000 


177777 


002402 
177777 
000010 


002402 


: 
a 
; 
3-74 


FINOSL: 
10$: 
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CALLING PROCEDURE 


MOV 
CMP 


8 
PRINTF 


FULSLT 


@NODTBL ,R2 
#0, (R2) 


10% 


@TABFUL , @NOD 


@-1 

30% 
R2,SLOT 
60 


SEQ 178 


CALL FINOSL 


PSsPOP P1 s-1 IF FULL/ O IF SLOT AVAILABLE 


sMOVE ADDRESS OF NODE TABLE TO R2 

sSEE IF SLOT EMPTY 

sIF YES, BR 20% 

sELSE NOVE POINTER TO NEXT ENTRY LOC. 

sSEE IF AT END OF TABLE 

sIF NOT, CONTINUE LOOKING 

sELSE, PRINT TABLE FULL MESSAGE 
Vv 


MO NOD, -( SP) 
MOV @TABFUL , -C( SP) 
MOV %2,- SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6,SP 

sPUT TABLE FULL INDICATION ON STACK 

;RETURN 


sMOVE ADDRESS OF EMPTY LOC. INTO SLOT 
oe FOUND INDICATION ON STACK 
3 


FULL SLOT ROUTINE 


THIS ROUTINE FINDS A LOCATION IN THE TABLE WHERE A NODE PHYSICAL 


ADDRESS EXISTS. 


INPUTS 


EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 


SUBORDINATE ROUTINES 
CALLING PROCEDURE 


SLOT,R1 
@0,(R1) 


20% 
#-1,(R1) 
15$ 


isa Am 


IT IS USED WHEN PRINTING OUT THE NODE TABLE. 


NONE 


NONE 

THE LOCATION SLOT WILL CONTAIN THE PHYSICAL 
ADDRESS OF A NODE TABLE ENTRY. SLOT WILL 
CONTAIN -1 WHEN POINTING TO THE END OF THE 
NODE TABLE 


NONE 
CALL FULSLT 


sMOVE SLOT LOCATION TO R1 

sCHECK IF EMPTY 

3IF YES, BR 20% 

3SEE IF END OF NODE TABLE 

sIF YES, BR 15$ 

sELSE PUT EMPTY LOC. ADDRESS INTO SLOT 
;RETURN 

3PUT -1 INTO SLOT TO SHOW END OF TABLE 
sRETURN 

sINCR. POINTER TO NEXT LOCATION 

sCHECK NEXT LOC. 

;RETURN 


COMPAIR TWO ADDRESSES 


K14 


ZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 30-32 SEQ 179 
EAD LINE OF OPENED FILE 
rte 3 THIS ROUTINE COMPAIRS TWO SIX BYTE STRINGS 
3 
6300 3 INPUTS Pi - ADDRESS OF FIRST STRING 
6301 3 P2 - ADDRESS OF SECOND STRING 
et 3 OUTPUTS P3 - 0 = COMPARISON/-1 = NO COMPARISON 
: 
6304 3 CALLING PROCEDURE CALL CMPADR P1,P2 
6305 3 P$POP P3 
6306 : 
6309 112546 CMPADR: PS$POP Re sPUT ADDRESS OF STRING TO BE COMPARED IN R2 AND R3 
6310 112552 022223 CMP Cho). CR3)+ 300 FIRST TWO BYTES COMPARE 
6311 112554 001006 BNE 10$ 3; IF NO, EXIT 
6312 112556 022223 CMP CR2)+¢,CR3)> 300 SECOND TWO BYTES COMPARE 
6313 112560 001004 BNE 10$ 3; IF NO, EXIT 
6314 112562 021213 CMP CR2),CR3) 3:00 LAST TWO BYTES COMPARE 
6315 112564 001002 BNE 10$ 3; IF NO, EXIT 
6316 112566 005001 CLR R1 sPUT COMPARISON OK INDICATOR IN R1 
6317 112570 000402 BR 15$ 
6318 112572 012701 177777 10$: MOV @-1,R1 sPUT NO COMPARISON INDICATOR IN R1 
6319 112576 15$: RETURN R1 
6320 
6321 t--e 
6322 : 3 PRTNOD PRINT NODE TABLE 
6323 : 
6324 Fy INPUTS NONE 
6325 Fy EXPLICIT OUTPUTS NONE 
6326 Fy IMPLICIT OUTPUTS ONE ENTRY IN THE NODE TABLE WILL BE PRINTED 
6327 Fy SUBORDINATE ROUTINES NONE 
tod 3 CALLING SEQUENCE CALL PRTNOD 
A 
6330 112602 4 PRTNOD: PRINTF #@NODADR, OSTRBUF sPRINT NODE ADDRESS 
112602 012746 002322 MOV @STRBUF , -CSP) 
112606 012746 053430 MOV @NODADR, -( SP) 
112612 012746 000002 MOV @2,-CSP) 
112616 010600 MOV P,RO 
112620 104417 TRAP CSPNTF 
112622 062706 000006 ADD »SP 
6331 112626 013702 002402 MOV SLOT ,R2 sMOVE SLOT ADDRESS INTO Re 
6332 112632 162702 002404 SUB @NODTBL ,R2 sCALCULATE NODE LOGICAL NAME 
6333 112636 006202 ASR R2 sUSING: LOG. NO. 
6334 112640 006202 ASR R2 3; (SLOT - @NODTAB )/8 
6335 112642 006202 ASR Re 
6336 112644 PRINTF #LOGNAM,R2 sPRINT LOGICAL NAME 
112644 010246 MOV R2,-CSP) 
112646 012746 053440 MOV @LOGNAM, -( SP) 
112652 012746 000002 MOV #2, -CSP) 
112656 010600 MOV P,RO 
112660 104417 TRAP CSPNTF 
112662 062706 000006 ADD 6,SP 
6337 112666 013702 002402 MOV SLOT ,R2 3SEE IF TARGET OR ASSIST NODE 
6338 112672 062702 000007 ADD #7,R2 ; INFO CONTAINED IN 7TH BYTE OF ENTRY 
6339 112676 111203 MOVB CR2),R3 sMOVE INTO R3 
6340 112700 020327 000001 CMP R3,eCASIST ;SEE IF ASSIST NODE 
6341 112704 001404 BEQ 10$ ; IF YES, BR 


10$ 
6342 112706 012737 062613 002312 MOV @ARGTY7 ,KEYWDC ; ELSE MOVE ‘TARGET’ INTO KEYWD2 


L1i4 


ACB NI EXERCISER DIAG MACRO M1200 -MAR - : PAGE 30- 
BERS BO PENA ONE NED Bore 22 84 10:53 GE 30-33 SEQ 180 
6343 112714 000403 BR 20% s CONTINUE 
6344 112716 012737 062603 002312 10%: MOV @ARGTY6 ,KEYWD2 s MOVE ‘ASSIST’ INTO KEYWD2 
6345 112724 208: PRINTF @NODTYP,KEYWD2 sPRINT NODE TYPE 
112724 013746 002312 MOV KEYWD2, -( SP) 
112730 012746 053453 MOV @NODTYP, -C SP) 
112734 012746 000002 MOV #2,-(SP) 
112740 010600 MOV SP ,RO 
112742 104417 TRAP CSPNTF 
112744 062706 000006 ADD 96 ,SP 
6346 112750 RETURN sRETURN 
6347 112752 EXIT TST 


112752 104432 
112754 000002 


112756 
112756 
112756 104401 


TRAP CSEXxIT 
-WORD 1L10015-. 


INSERT LOCAL STORAGE THAT IS USED ONLY 
DURING THIS TEST. 
SESSCULSTIASGSCAGGS s. LACHSA CISC ASSAKAa Sitddhsdddadddidsasas 


INSERT MESSAGES THAT ARE USED ONLY 
DURING THIS TEST. 


-EVEN 
ENOTST 
L10015: 
TRAP CSETST 
KIGSCSCSSLCLGBCCSGLSCSNSGSBSSS  AASRAGEOSS 


BEGIN THE REMAINING TESTS ON NEW PAGES. 
LALSEAGASBSACLGSSSS SSSA S SABES 


AAA A 
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R AG MACRO M -MAR-84 10:53 PAGE 3 
REKACBO, PELINA oNenESEP See DIAG CRO M1200 22 84 1 1 SEQ 181 
6371 
6372 .SBTTL HARDWARE PARAMETER CODING SECTION 
6373 
6374 poe 
6375 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
6376 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
6377 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCT? % BUT ARE 
6378 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
6379 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
6380 3 unt THE OPERATOR. 
6381 i- 
6382 
6383 112760 BGNHRD 
112760 000015 -WORD L10016-L$HARD/2 
112762 L$HARD: : 
6384 
6386 , shddddddd icertaedtdssstdd site stdtdadsss” KHdddddse nts S EEA eA KKM e dS 
6387 3 INSERT HARDWARE PARAMETER INTERPRETIVE CODE HERE. ‘THIS CODE 
6388 3 IS USED BY THE SUPERVISOR TO INTERROGATE THE OPERATOR FOR 
6389 3 DEVICE INFORMATION TO PUT IN THE P-TABLE. THIS CODE IS USED 
6390 3 IN CONJUNCTION WITH THE DEFAULT P-TABLE TEMPLATE. THE MACROS 
6391 ; USED IN THIS SECTION ARE "GPRMD”, "GPRMA” AND "GPRML". 
6398 a ri 
6395 112762 GPRMA ASKCSR,O,0,160000,177776, YES ; GET CSR ADDRESS 
112762 000031 . WORD TS$CODE 
112764 113014 WORD ASKCSR 
112766 160000 WORD TS$LOLIM 
112770 177776 . WORD TSHILIM 
6396 112772 GPRMA ASKVEC,2,0,0,776, YES ; GET VECTOR ADDRESS 
112772 001031 . WORD TSCODE 
112774 113047 .WORD ASKVEC 
112776 000000 “WORD T$LOLIM 
113000 000776 .WOR TSHILIM 
6397 113002 GPRMD ASKPRI,4,0,340,0,7, YES ; GET PRIORITY LEVEL 
113002 002032 .WOR TS$CODE 
113004 113103 “WORD ASKPRI 
113006 000340 WORD 340 
113010 000000 . WORD TS$LOLIM 
e308 113012 000007 . WORD TSHILIM 
6399 113014 ENDHRD 
-EVEN 
113014 L10016: 
6400 
6402 sRSSSSSAAS GSS Ko MSA SSCNK SS eo SKGSHe ~“ KSA SSSLSSGS eo MKS GGHSS em oa GAGSSCSKKASGSGE SD Se © 
6403 F INSERT MESSAGES THAT ARE USED ONLY 
6404 3 DURING THE HARDWARE PARAMETER CODING SECTION. 
reat  SECSGASLSAASBSGS SSCS CHSC AGK oH SHARK GGL MASTS CASBAH AKAAAN GH oc SESE BSSANS oH SHAGOB SKEH 
6408 113014 127 110 101 ASKCSR: .ASCIZ /WHAT IS THE PCSRO ADDRESS?/ 
113017 124 040 111 
113022 123 040 124 
113025 110 105 040 
113030 120 103 123 
113033 122 117 040 
113036 101 104 104 


N14 
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HARDWARE PARAMETER CODING SECTION 


6409 


6410 


6411 
6412 


113041 
113044 
113047 
113052 
113055 
113060 
113063 
113066 
113071 
113074 
113077 
113102 
113105 
113106 
113111 
113114 
113117 
113122 
113125 
113130 
113133 
113136 


123 


ASKVEC: 


ASKPRI: 


-ASCIZ /WHAT IS THE VECTOR ADDRESS?/ 


-ASCIZ /WHAT IS THE PRIORITY LEVEL?/ 


EVEN 


SEQ 182 


Bis 


CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 32 SEQ 183 
SOFTWARE PARAMETER CODING SECTION 
rte -SBTTL SOFTWARE PARAMETER CODING SECTION 
0416 gee 
6417 : THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
6418 + THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
6419 1 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
6420 3 INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
6421 + MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
6422 3 WITH THE OPERATOR. 
6423 g*< 
6424 
6425 113140 BGNSF T 
113140 000000 «WORD L10017-L$SOFT/2 
113142 LS$SOFT::; 
6426 
6428 w? 
6429 H INSERT SOFTWARE PARAMETER INTERPRETIVE CODING HERE. THIS CODE 
6430 H IS USED BY THE SUPERVISOR TO INTERROGATE THE OPERATOR FOR 
6431 1 SOFTWARE INFORMATION WHICH WILL BE PLACED IN THE SOF TWARE 
6432 H TABLE. THIS SECTION IS OPTIONAL. 
6433 ’ 
6435 
6436 -EVEN 
6437 
6438 113142 ENOSF T 
-EVEN 
113142 L10017: 
6439 
6440 
6442 , SSSAASSADAAAAA SSSA CSAASASA SH AGASLSAAESADISGESSAC SSCS SA SASSSSSLADSAA SST SASSO NAST OG 
6443 3 INSERT MESSAGES THAT ARE USED ONLY 
aaah $ OURING THE SOFTWARE PARAMETER CODING SECTION. 
$ 
6447 
6448 113142 sPATCH:: 
6449 113142 -BLKW 10 
6450 
6452 3 
6453 : THIS IS A PATCH AREA THAT SHOULD BE INCLUDED IN ALL DIAGNOSTICS. 
cone 4 ADJUST THE SIZE TO FIT YOUR OWN PREFERENCES. 
8 
6457 
6458 113162 LASTAD 
113162 000000 -WORD O 
113164 000000 -WORD O 
113166 LSLAST:: 


reac 
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CBP PGRRe OBWNA SM TER ERG TRE? PEPE oH ACRO M1200 22-MAR-84 10:53 PAGE 33 SEQ 184 
6460 
6461 
6463 j SOKSASASCKAASSAS AA SSSAAK AA AHASAAASEA AMARA AACAAAAAASAKAA EAA ACAD SSA CAAAALAAEA Eddi s ae 
6464 : HARDCODED P-TABLES MAY BE PLACED HERE BY USING THE SETUP MACROS. 
6465 3 THIS SECTION IS OPTIONAL AND SHOULD BE REMOVED IF IT IS NOT BEING 
rey : USED. CHANGE THE POINTER MACRO ARGUMENT TO REFLECT THE REMOVAL. 
i 
6468 : THE P-TABLES ARE DELIMITED BY THE "BGNSETUP” AND “ENOSETUP” MACROS. 
6469 3 THE “BGNSETUP” MACRO HAS ONE ARGUMENT WHICH IS THE NUMBER OF 
6476 : P-TABLE ENTRIES. EACH ENTRY IS DELIMITED BY THE “BGNPTAB” AND 
rt : “"ENDPTAB” MACROS. NEITHER OF THESE MACROS REQUIRE AN ARGUMENT. 
{ SSSSSSSSSSSSSSK SSA SSK KS SSKSA SASS SSASAASSSAAASASSKASSASSSASSASAAASA AAAS 
6474 
6475 : BGNSE TUP 1 
6476 3 BGNPTAB 
6477 : .WORD 0 
6478 : ENOPTAB 
rk 3 ENOSE TUP 
6481 000001 . END 


oe Pe od 


Dis 


CZMAGPOTREWA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 33-1 SEQ 185 
ACTALP 103450 BAD 412114 EXIT = 000020 G NTRO6 063260 CSESEG= 000005 
ACTBLD 101166 BCOUNT 0 G FLAG 003672 NTRO? 063317 CSESUB= 000003 
ACTCMS 107206 BINDEC 075014 G FUNCT®= 0 CNTROB 063 C8ETST= 000001 
ACTCNL 110550 BINHEX 072672 CLIACT 100456 CNTROD 063442 CSEXIT= 000032 
ACTCNT 107312 BITO » 000001 G CLIALN= 7 CNTR1O 063513 C8GETB= 000026 
ACTCPY 103742 BITOO = 000001 G CLIALP= 000006 CNTR11 063552 C8GETW= 000027 
ACTCSU 111036 BITO1 = 000002 G CLIBIF= 000003 CNTRI2 063622 C8GMAN= 000043 
ACTCTT 103520 BITO2 = 000004 G CLIBR = 000002 CNTRI3 063670 CSGPHR= 000042 
ACTOFT 111112 BITO3 = 000010 G CLIBRX 052554 CNTR14 063735 C$GPLO= 000030 
ACTOIR 104776 BITO4 = 000020 G CLIDEC= 1 CNTRIS 063771 C8GPRI= 000040 
ACTEXT 103350 BITOS = 000040 G CLIERM 052445 CNTR16 064033 CSINIT* 000011 
ACTFCT 110634 BITO6 = 000100 G CLIERR= CNTR17 064101 CSINLP= 000020 
ACTHLP 100620 BITO7 = 000200 G CLIEXI= CNTRI8 064154 C$MANI= 000050 
ACTIDT 102264 BITO8 = 000400 G CLINBG 052527 CNTR19 064221 C8MEM = 000031 
ACTMSG 103242 BITO9 = 001000 G CLINUF 052476 071350 G C8MSG = 000023 
ACTNAD 104020 BIT1 = 000002 G CLINUM= 000005 COMPAR 062351 CSOPEN= 000034 
ACTNAL 104156 BIT10 = 002000 G CLIOCT= 000010 CONES = 000017 CSPNTB= 000014 
ACTNOD 100656 BIT11 = 004000 G CLISFA* 000004 COPRSL= 000024 CSPNTF= 000017 
ACTNUF 100610 BIT12 = 010000 G CLISTR= 000012 COUNT 050542 G CSPNTS= 000016 
ACTNUL 100616 BIT13 = 020000 G CLITRE 051070 CPATRN= 000005 CSPNTX= 000015 
ACTONE 103460 BIT14 = 040000 G CLISPM 052436 CPYCNT 050562 G C$QIO = 000377 
ACTOPR 103530 BIT1S = 100000 G CLKBR 003676 CPYLMT 053775 C$ROBU= 000007 
ACTPAT 107032 BIT2 * 000004 G CLKCSR 003674 CRC = 004000 G C$REFG= 000047 
ACTRNA 104356 BIT3 = 000010 G CLKEN 003704 CRNALL* 000032 C$RESE= 000033 
ACTRNL 105424 BIT4 = 000020 G CLKHZ 003702 RUN = 000004 CSREVI= 000003 
ACTRUN 104236 BITS = 000040 G CLKINT 067702 G CSAVE = 000006 CSRFLA= 000021 
ACTSAV 110670 BIT6 = 000100 G CLKSET 067656 CSAVR4= 000014 C$RPT = 000025 
ACTSMS 107114 BIT7 = 000200 G CLKVEC 003700 CSHCTR= 000002 G C8SEFG= 000046 
ACTSND 110374 BITS = 000400 G CLRCNT= 000013 G CSHMSG= 000034 C8SPRI= 000041 
ACTSR4 103442 BIT9 = 001000 G 053716 CSIZE = 000026 C8SVEC= 000037 
ACTSUM 101710 BLDAST 073606 G CLRSTA= 000017 G CTARGT= 000000 G CSTPRI= 000013 
ACTSZE 103664 BLOBUF 074324 G CLUPPR= 000033 CTYPE = 000025 C.COLL= 000074 G 
ACTTYP 103656 BLOFAS 073242 G 002200 CUNSAV= 000041 C.MREC= 000010 G 
ACTUNS 110734 BLOLD 072760 G CMOTY1 062444 CUNSVF = 000045 C.MXMT= 000040 G 
ACTUSF 111160 BLOMSG 052757 CMOTY2 062451 CZEROS* 000020 C.PREC= 000004 G 
ACTXAD 103360 BLOREQ 074124 G CMOTY3 062461 CsaU = 000052 C.PXMD= 000054 G 
ACTZRO 103470 BOE = G CMOTY4 062467 CSAUTO= 000061 C:PXMT= 000034 G 
ACTOAL 103510 BOOT » 000905 G CMDTYS 062474 C8BRK = 000022 C.PXM2= 000050 G 
ACT1AL 103500 BUFL = 100000 G CMDTY6 062500 C8BSEG= 000004 C.PXM3= 000044 G 
ADR = 000020 G BUFLEN 050566 G CMOTY7? 062510 C$BSUB= 000002 C.RDAT= 000020 G 
ADRBUF 002314 BUILD = 000003 CMOTY8 062515 CSCEFG= 000045 C.RERB= 000014 G 
ADRDEL 054340 CADERR 053306 CMOTY9 062523 C8CLCK= 000062 C.RERR= 000016 G 
ALLNOD 062151 CADRER 053232 CMPADR 112546 C8CLEA* 000012 C-:RLEX= 000032 G 
ALPHA = 000000 G CALPHA= 000016 CMPBUF 050570 G C8CLOS= 000035 C.RLIN= 000030 G 
ANCHOR 070042 CASIST= 000001 G CMPER1 066754 C8CLP1* 000006 C.RMDB= 000024 G 
ARGTY1 062536 80 002366 CMPER2 067051 C8CVEC- 000036 C.SECS= 000002 G 
ARGTY2 CCCITT= 000023 CMPSTR 072530 C8DCLN= 000044 C.XABB= 000066 G 
ARGTY3 062555 CCITT = 000005 G CNDADR= 000030 C8D00U= 000051 C.XABT= 000070 G 
ARGTY4 062566 CCLMSG= 000035 CNOLOG= 000037 C8DRPT= 000024 C:XDAT= 000060 G 
ARGTYS 062577 CCLNAD= 000004 G CNODAL* 000031 CsDU = 000053 C.XMDB= 000064 G 
ARGTY6 062603 CCLNAL= 000010 G CNODE = 000015 CSEDIT= 000003 COALT = 000022 
ARGTY7? 062613 CCLSUM= 000042 CNTROO 062703 CSEROF* 000055 CLALT = 000021 
ASKCSR 113014 CCNTR = 000036 CNTROL 062763 CSERHR= 000056 DATCMP 074406 G 
ASKPRI 113103 CCPYS = 000027 CNTRO2 063032 C8ERRO= 000060 DECSTR 075200 G 
ASKVEC 113047 CDEFLT= 000044 CNTROS 063066 CSERSF* 000054 DEF = 002000 G 
ASSEMB= 000010 CDIR = 000043 CNTRO4 063133 CSERSO= 000057 DEPADR 047752 G 
8 = 000007 CEXADR= 000013 CNTROS 063210 CSESCA= 000010 DESTIN= 000000 G 


cia 
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ZUAGS rREUNA C 9) Cc 12 22 10:53 GE 2 SEQ 186 
OFPTBL 002170 G ERRFLG 050530 G GETCL 100274 HELP29 961346 LOADRi= 000022 G 
OIAGMC= 000000 ERRMSG 052432 G GETCOM 074304 HELPS 056254 LOADR2= 000032 G 
DIRCOM 105026 ERRNBR 052430 © GETFNT= G HELPSO 061416 LOFCT1= 000020 G 
DIRECT 062173 ERROR 070150 G GETPCB= G HELP4 056325 LOFCT2= 000030 G 
DMPMEM= 000020 G ERRS = 040000 G GETRNX 074262 G HELPS 056376 LOMEM = 000021 G 
ONI = 004000 G ERRTYP 052426 G GETXNX 074274 G HELP6 056476 LORESP 052574 
DNIFLG 050522 G ERR1 067460 G GSCNTO= 000200 HELP7 056611 LOSKIP= 000016 G 
EDPACK 072322 ERR] 067516 G G$DELM* 000372 HELPS 056722 LENGTH 062342 
EF .CON= 000036 G ERRS 067604 G GSOISP= 0000035 HELP9 057012 LGERMS 067117 
EF .NEW= 000035 G EvL = 000004 G GSEXxCP= 000400 HEXBIN 072552 LOCDST 072206 
EF .PWR= 000034 G EXIT = 000011 GSHILI= 000002 HE XC 072650 LOE = 040000 G 
EF .RES= 000037 G ESEND = 002100 G$LOLT= 000001 HLPEND 003260 LOGDEL 054426 
EF .STA= 000040 G ESLOAD= 000035 G$NO = 000000 HLPTAB 003164 LOGNAM 053440 
EMSGO 003464 G FAADR1i= 000022 G GSOFFS= 000400 HN 072526 LOPDIR 050720 G 
EMSGO1 064272 FAADR2= 000032 G GSOFSI= 000376 HOE = G LOT = 000010 G 
EMSGO2 064321 FAADR3= 000042 G G$PRMA= 000001 HXFORM 072414 LST 072670 
EMSGO3 064341 FAADR4= 000052 G G$PRMD= 000002 HXN 072412 LUPAIR 062162 
EMSGO4 064373 FAFCT1= 000020 G $PRML= IBE * 010000 G L$ACP 002110 G 
EMSGOS 064415 FAFCT2= 0000350 G G$RADA= 000140 ICAB_ = 040000 G LSAPT 002036 G 
EMSGO6 064450 FAFCT3= 000040 G G$RADB= 000000 IDENT = 000010 L$AU 100266 G 
EMSGO7 064510 FAFCT4= G G$RADD= 000040 Idu) = 000040 G L$AUT 002070 G 
EMSGO8 064553 FASIST 051026 G G$RADL= 000120 IER = O02 G L$AUTO 100140 G 
EMSGO9 064613 FASKIP= 000016 G G$RADO= 000020 ILAOMS 053051 L$CCP 002106 G 
EMSG1 003465 G FATFLG 050512 G G$XFER= 000004 ILADM1 053135 LSCLEA 100142 G 
EMSG10 064656 FATI = 000400 G GSYES = 000010 ILLADR 002650 Ls$co 002032 G 
EMSG11 064716 FILENM 111554 HOMSG1 055342 INICLN 100150 LSDEPO 002011 G 
EMSG14 064755 FILLIN 111570 HOMSG2 055413 INIEXI 100132 L$DESC 002130 G 
EMSG1S5 065031 FINOSL 112410 HOMSGS 0 INIT 076600 L$DESP 002076 G 
EMSG16 065064 FRAM = 020000 G HOM: 055522 INIT1 076620 L$DEVP 002060 G 
EMSG18 065127 FRDADR= 000004 G HOMSGS 055577 INTE #= 000100 G L$DISP 002164 G 
EMSG19 065176 FREMEM 047662 G HOMSG6 055650 INTR = 000200 G L$OLY 002116 G 
EMSG2 003466 G FRESIZ 047660 G HOMSG7 055710 ISR = 000100 G LSOTP 002040 G 
EMSG20 065234 FULAST 062207 HOMSGS 055751 IXE = 004000 G LSOTYP 002034 G 
EMSG22 065266 FU.SLT 112500 HOMSG9 056014 IsAU = 000041 L$0U 100260 G 
EMSG23 065321 FUNCT 071372 HEADER= 000016 G ISAUTO= 000041 L$OUT 002072 G 
EMSG24 065366 FUNTAB 047676 G HELP = 000001 ISCLN = 000041 L$OVTY 002122 G 
EMSG25 065442 FSAU = 000015 HELP1 O IsO0U = 000041 LSEeF 0020S2 G 
EMSG3 003467 G FSAUTO= 000020 HELP10 057101 ISHRD = 000041 LSENVI 002044 G 
EMSG30 065531 FSBGN = 000040 HELP11 057172 ISINIT= 000041 LSERRT 052426 G 
EMSG31 065576 FSCLEA= 000007 HELP12 057270 IsMOD = 000041 LSETP 002102 G 
EMSG32 065637 FsOU = 000016 HELP13 057375 I8MSG = 000041 LSEXP1 002046 G 
EMSG33 065714 FSEND = 000041 HELP14 057474 IsSPROT= 000040 LSEXP4 002064 G 
EMSG34 065732 FSHARD= 000004 HELP1S 057573 ISPTAB= 000041 LSEXPS 002066 G 
EMSG3S 066002 FsHw = 000013 HELP16 057676 IsPwWR = 000041 LSHARD 112762 G 
EMSG36 066037 FSINIT= 000006 HELP17 057765 IsRPT = 000041 LS$HIME 002120 G 
EMSG37 066064 FSJMP = 000050 HELP18 060070 IsSEG = 000041 LSHPCP 002016 G 
EMSG38 066130 FSMOD = 000000 HELP19 060140 ISSETU= 000041 LS$HPTP 002022 G 
EMSG4 003470 G FSMSG = 000011 HMELP2 056161 IsSFT = 000041 L SH 002170 G 
EMSG40 066174 FSPROT= 000021 HELP20 060243 IsSRV = 000041 L$ICP 002104 G 
EMSG41 066263 FSPWR = 000017 HELP21 060321 IsSUB = 000041 LSINIT 076600 G 
EMSG42 066353 FSRPT = 000012 HELP22 060404 IsTST = 000041 L$LADP 002026 G 
EMSGS 003570 G FSSEG = 000003 HELP23 060505 JSJMP = 000167 LSLAST 113166 G 
ENP = 000400 G F$SOFT= 000005 HELP24 060605 KEYWD1 002310 L$LOAD 002100 G 
ENTRNO 112332 FSSRV = 000010 HELP2S 060735 KEYWO2 002312 L$SLUN 002074 G 
EOFF 112116 F$SUB = 000002 HELP26 061021 LCAR = 004000 G L$MREV 002050 G 
EOFFND 112233 F$SW = 000014 HELP27 061125 LCLKEN= 000100 G LS$NAME 002000 G 
ERRBLK 052434 G FSTEST= 000001 HELP28 061227 LCOL = 010000 G L$PRIO 002042 G 
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EZUAGBO QEUNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10:53 PAGE 33-4 SEQ 188 
OS$GNSW= 000000 PSPASS 002376 RXI__ = 020000 G TASIST 050742 G TSTEMP= 000005 
OSPOIN= 000001 P$RADX 003156 SAVCOM 111012 TBLLEN* 000050 G TSTEST= 000001 
OSSETU= 000000 PSSIZE 002372 SAVED 054620 TEMP CS0550 G TS$TSTM= 177777 
PART 075214 G PSTREE 003146 SAVTBL 002530 TEMP1 050552 G T$TSTS= 000001 
PASABT 061526 PSTRV 075216 SELMSG 112274 TEMP2 050554 G TS$$AU = 010014 
PATCH 050572 G PSTRS 075226 SERI = G TEMPS 050556 G TS$AUT= 010011 
PATTRN 062262 P$TYPE 002370 SFPTBL 002200 G TENPWR 075130 T$$CLE= 010012 
PCBBO 047666 G QUIT 111024 SIADDR= 000042 G TIMERS 003720 T$s0U = 010013 
PCBB2 047670 G RASIST 050774 G SIDEV = 000053 G TIMER1 003714 TS$HAR= 010016 
P 047672 G RBFCNT 050524 G SIECO = “90030 G TIMER2 003716 T$$HwW = 010000 
PCBB6 047674 G RCBI = 002000 G SIFNCT= 000035 G TIMMIN 003706 T$$INI= 010010 
PCCALL 050564 G RCVBUF 050540 G SIMSG1 066440 TIMOUT 050532 G T$$MSG= 010004 
PCEFLG 050514 G RCVERR 050536 G SIMSG2 066477 TIMSEC 003710 T$$PRO= 010007 
PCEI = 040000 G ROCNTS= 000012 G SIMSG3 066532 TIMTCK 003712 T$$RPT= 010006 
PCLKCT= 001600 G RDDEFA= 000002 G SIMSG4 066572 TMRF = 000012 G T$$SOF= 010017 
PCLKEN= 000111 G RDERR 112154 SIMSGS 066613 TMRO = 000011 G TS$$SRV= 010005 
PCMSG 066714 G ROLIN 111442 SIMSG6 066641 TRAST 062223 T$$SW = 010001 
PCSRO 047632 G ROMODE= 000014 G SIMSG7 066667 TRVACT 075344 TS$$TES= 010015 
PCSROC 047642 G ROMULA= 000006 G SIRCPT= 000022 G TRVADR 076330 T1 100274 G 
PCSR1 047634 G ROPHYA= 000004 G SIVECO= 000031 G TRVALN 076144 VAM = 000200 G 
PCSRiC 047644 G RORNGS= 000010 G SIVERS= 000027 G TRVALP 076100 UBTO = 040000 G 
PCSR2 047636 G ROSTA = 000016 G SIZLMT 054061 TRVBIF 075450 ucB10 6050110 G 
PCSR2C 047646 G ROSYS = 000022 G SLOT 002402 G TRVBR 075440 UCB11 050134 G 
PCSR3 047640 G READY = 000002 G SOURCC= G TRVBRC 075364 ucBil2 050160 G 
PCSR3C 047650 G RECAST 062243 SOURCE 072320 TRVDEC 075544 UCB13 050160 G 
PCTO = 000200 G RECERR 052631 START 076700 TRVERR 075402 UCB20 050340 G 
DMD = 000010 G RECEVE 071776 G STATBL TRVEXI 07542? UCB21 050340 G 
PFNOP = G REQID 050712 G STATUS 050312 G TRVNMA 075564 UCB22 050400 
PHYADR 047762 G RESET = 000000 G STBLEN= 000132 G TRVNOB 9 075374 uCBe3 050400 
PLINE 112202 REST 054627 STOP = 000017 G TRVNUM 075556 UCB6 050010 G 
PNOP = 000003 G RESTRT 100046 STP =#= 001000 G TRVOCT 075556 UCB7 050050 G 
PNT = 001000 G RETRY 062316 STRBUF 002322 TRVSPA 075472 U08B 050466 G 
PREG14 070024 RETRYS 050534 G STRBUL 002344 TRVSTR 076232 UNACSR 047652 G 
PRI = 002000 G RMTC = 000010 G STRT = G TSTMS1 061551 UNAINI 070262 G 
PRIMLD= 000001 G RPKLEN= 002756 G SUMM 053706 TSTMS2 061571 UNAISR 071144 G 
PRIOO = 000000 G UR 003760 G SUMMRY= 000007 TSTMS3 061611 UNAPRI 047656 G 
PRIO1 = 000040 G RRGLST 003770 G SUMMS1 067215 TSTMS4 061624 UNAVEC 047654 G 
PRIO2 = 000100 G RRGNXT 003764 G SUMMS2 067236 TXI #= 010000 G 054252 
PRIO3 = 000140 G RRGSRT 003754 G SUMMS3 067322 TSARGC= 000002 UNIHLT= 000005 G 
PRIO4 = 000200 G RRGOO1 026006 G SUMMS4 067351 TSCCDE= 002032 UNIT 047664 G 
PRIOS = 000240 G RRGOO2 030764 G SUMMSS 067434 TSERRN= 000036 UNSMSG 054561 
PRIO6 = 000300 G RRGOOS 033742 G SUMMS6 067452 TSEXCP= 000000 WAIT 070066 G 
PRIO7 = 000340 G RRGOOS4 036720 G SVCGBL = TSFLAG= 000040 WOMODE= 000015 G 
PROTOT= 000014 G RRGOOS 041676 G SVCINS= 000001 T$GMAN= 000000 WOMULA= 000007 G 
PROTOO 050544 G RRGOO6 044654 G SVCSUB= 000001 TSHILI= 000007 WOPHYA= 000005 G 
PROTO2 050546 G RRING 004066 G SVCTAG= 000001 TSLAST= 000001 WORNGS= 000011 G 
PRTNOD 112602 RRNGTB 003722 G SVCTST= 000001 TSLOLI= 000000 WOSYS = 000023 G 
PSACT 003150 RSET = 000040 G S$LSYM= O1 TS$LSYM= 010000 WRITES 074544 
PSAERR 003162 RSTT = 000015 G S.BYTE 050506 G TS$LTNO= 1 XFER 050560 G 
PSBUFA 003144 RTRY * 002000 G S.COMP 050504 G TSNEST* 177777 XFLAG 050520 G 
PsCNT 003152 RTRYER 052675 S.LEN 050502 G T$NSO = 000005 XMIT 071434 G 
PSCPYS 002374 RUN = 000003 G S.NREC 050500 G TSPTNU= XPKLEN= 002756 G 
PSEXIT 075342 RUNALL 104366 S.REC 050476 G TSSAVL= 177777 XPWR = 100000 G 
P$GDBD 003161 RUNCOM 106526 S.XFER 050510 G TSSEGL= 177777 XRGCUR 003756 G 
PSMERR 003163 RUNDIR 105006 TABCLR 054514 T$SUBN* 000000 XRGLST 003766 G 
P$NNUF 003160 RUNLUP 105434 TABEMT 053632 T$TAGL® 177777 XRGNXT 003762 G 
PSNUM 003154 RUNPAT 107042 TABFUL 053560 T$TAGN= 010020 XRGSRT 003752 G 
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XRNGTB 003736 G ZROALT= 000004 G 
x$ = 000167 $CLRC 050260 G 
X$ALWA= 000000 $CLRS 050320 G 
X$FALS= 000040 $OMEM 050330 G 
XSOFFS= 000400 $LMEM 050350 G 
X$TRUE= 000020 $PATCH 113142 G 
ZEROS = 000002 G $PNOP 047746 G 


31328 WORDS ( 123 PAGES) 
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